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Introduction 


Ces dernières années, le marché de l'ordinateur individuel a été marqué par 
une affluence de petites machines performantes et économiques, souvent 
originaires de Grande-Bretagne. L'ORIC-1 s'inscrit avec bonheur dans 
cette lignée, dont il représente à la fois le dernier rejeton et une certaine 
forme d'aboutissement. 


En effet, l'ORIC réunit à la fois toutes les caractéristiques qui font le succès 
d'un ordinateur ‘familial, couleur et son très développés, graphique 
performant avec d'autres beaucoup moins fréquentes dans cette gamme 
de prix : BASIC évolué d'où pratiquement rien ne manque, interface paral- 
lèle pour imprimante et possibilités de communications entre autres. 


Ce livre se voudrait une extension du manuel ORIC, destiné à ceux qui, 
ayant assimilé les principes de base de la programmation, désirent mieux 
connaître et utiliser leur machine. Toutes les parties du manuel présentant 
une certaine difficulté ou traitant de fonctions peu évidentes sont évidem- 
ment développées à fond. Mais le lecteur trouvera aussi de nombreux 
“trucs ” lui permettant de tirer un bien meilleur parti de son ORIC, ainsi que 
plusieurs véritables programmes d'applications. 


La première partie, après avoir clarifié quelques notions indispensables, 
traitera du BASIC résident et en particulier de toutes les commandes et 
fonctions peu usitées dont l'ORIC est assez prolixe. Des petits programmes 
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et des astuces permettant d'obtenir les fonctions ou instructions absentes 
du BASIC complètent le texte, partout où cela est nécessaire. 


La deuxième partie fait le point sur l'organisation mémoire de l'ORIC, la 
facon dont il range” toutes les informations qu'on lui donne et comment 
elles sont exploitées. On y trouvera une carte détaillée de la mémoire et la 
liste des principales variables-système avec leur fonction, ainsi qu'un 
programme de renumérotation de lignes. 


La troisième partie est consacrée à l'écran: L'utilisation des codes de 
contrôle et la gestion d'écran en modes TEXT et LORES y sont largement 
abordés. Tous les codes, très nombreux sur ORIC, permettant d'obtenir des 
fonctions spéciales aussi bien en ce qui concerne l'affichage que la couleur 
sont expliqués et illustrés en accès direct et en mode programme. Les 
extensions possibles en langage-machine sont aussi étudiées, comme les 
fonctions de l'éditeur d'écran. Vous trouverez dans ce chapitre, entre 
autres, un programme de recopie d'écran-texte sur imprimante et une 
sauvegarde d'écran sur cassette. 


La manière de programmer ses propres caractères est également expliquée 
de facon exhaustive, illustrée par un grand programme de générateur de 
caractères intéractif, permettant de générer ses propres jeux de caractères 
aussi facilement qu'en les dessinant sur une feuille de papier. 


Un programme de traitement de textes, offrant toutes les fonctions de 
saisie et d'édition indispensables et utilisant la plupart de ces commandes, 
termine cette section. 


Le Graphique Haute Résolution est traité en quatrième partie. Toutes les 
instructions spéciales sont évidemment détaillées, en insistant plus parti- 
culièrement sur les moins évidentes comme FILL et PATTERN. 


Un programme de D.A.0. (Dessin assisté par ordinateur), permettant 
d'exploiter toutes les possibilités graphiques de l'ORIC, et comportant 
entre autres une partie Hardcopy (copie d'écran sur imprimante), clôt ce 
chapitre. 


La dernière section enfin est consacrée au son, qui, étant géré par un 
processeur spécialisé, fait l'objet d'un nombre relativement important 
d'instructions et confère à l'ORIC de réelles possibilités musicales. Celles- 
ci, en particulier l'instruction PLAY”, sont toutes examinées et illustrées 
d'un programme mettant en évidence les effets qu'il est possible d'obtenir. 


”. 


Un jeu intéractif du type ‘jeux d'arcades ”, mettant en œuvre à la fois la 
création de caractères spéciaux et l'utilisation de bruitages et de musique, 
terminera ce chapitre et l'ouvrage. 
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1 
Le Basic ORIC 


1.1. Introduction 


Ce chapitre n'a pas pour but de présenter in extenso toutes les commandes 
Basic, dont on peut trouver l'explication dans le Manuel. Nous nous éten- 
drons plutôt sur toutes celles d'entre elles qui, soit parce qu'elles sont peu 
fréquentes, soit parce que leur utilisation n'est pas évidente au premier 
abord, nécessitent une définition plus détaillée. D'autre part, et malgré le 
fait qu'il possède un Basic particulièrement étendu, certaines commandes 
font défaut à l'ORIC. Chaque fois que cela a été possible, nous avons tenté 
de palier à cette absence par l'intermédiaire d'un petit programme. 


1.2. Quelques rappels 


Avant toutes choses, nous pensons qu'il est utile de préciser quelques 
notions de base, sur le fonctionnement des micro-ordinateurs, et celui 
d'ORIC en particulier. 


ORIC utilise un langage évolué, le Basic, pour communiquer avec nous. Les 
ordres donnés en Basic sont ensuite interprétés et exécutés un à un. Le 
programme interne chargé de cette traduction s'appelle l'interpréteur 
Basic, et il a été écrit une fois pour toutes : On ne peut pas le modifier, et la 
mémoire le contenant s'appelle mémoire morte ou MEM en français, et 
ROM (Read Only Memory) en anglais. Le langage Basic est constitué d'un 
ensemble d'instructions, de Fonctions, d'Opérateurs et d'Opérandes 
ou Arguments; voici l'explication de ces termes: 


1.2.1. Instructions et fonctions 


— Une Instruction est un mot-clé compris par le Basic, qui implique 
l'exécution d'une tâche précise par l'ordinateur. Certaines instructions 
doivent être suivies d'un argument, certaines non. 


Exemples : 


Dans PRINT"BONJOUR”, PRINT est l'instruction et BONJOUR" est 
l'argument. Mais PRINT peut aussi être utilisé seul. 


Par contre, CLS (Effacement de l'écran) est une instruction utilisée toujours 
seule, alors que INPUT implique nécessairement l'emploi d'un ou plusieurs 
arguments. 


— Une Fonction est également un mot clé, mais il s'agit plutôt d'une 
‘question’ que l'on pose à l'ordinateur: celui-ci doit nous retourner 
une valeur en réponse. Une fonction s'utilise toujours à la suite d'une 
instruction, en général PRINT ou LET. 


Exemples : 
Dans PRINT SIN(PI/2), SIN est la fonction et PI/2 son argument. 


A$=HEX$(100) donnera à la variable A$ la valeur hexadécimale de l'argu- 
ment, ici le nombre 100. (N'oublions pas que A=X est:équivalent à LET 
A=X.) 


1.2.2. Variables et constantes 


— Les Opérandes sont les valeurs, nombres ou séquences de caractères, 
servant d'argument aux instructions et fonctions. Les opérandes numé- 
riques sont de deux sortes, les constantes et les variables: 


Les constantes, qui peuvent être soit décimales en notation ordinaire (100, 
3.146, etc...) ou scientifique (2.2E3, 4.7E—12), soit hexadécimales si elles 
sont précédées du symbole # (#20, #B100, etc...). 


Les variables, qui contrairement aux constantes peuvent changer de valeur 
en cours de programme. Leur valeur peut être définie par l'utilisateur, ou 
représenter le résultat d'un calcul. Une variable est définie par un nom 
comportant au maximum deux caractères alphanumériques dont le premier 
doit être une lettre. Deux types de variables sont disponibles: 


— Les variables simples, dont la valeur peut être comprise entre 2.9 
10-% et 1.7 10%, A1, N, KM sont des noms de variables simples. 


— Les variables entières, qui suivent les mêmes règles que les variables 
simples avec la différence qu'elles ne peuvent contenir que des 
nombres entiers compris entre —-32768 et +32767, et que leur nom 
doit être suivi du symbole %;: A%, R2% ou AG% sont des noms de 
variables entières. 


Nous avons enfin les opérandes littérales, qui ne sont plus considérées 
comme des nombres, mais comme des suites de caractères. Il s'agit bien 
sûr des chaînes de caractères, et elles sont aussi divisées en constantes 
et variables. 


Une constante de chaîne est une suite quelconque de caractères pouvant 
aller jusqu'à 255, toujours incluse entre guillemets (pour la distinguer d'un 
nom de variable). 


Exemples: 


"PROGRAMME 1”, "TOTO”, "1234QWERTY” sont des constantes de 
chaîne. 

Les noms des variables de chaîne suivent les mêmes règles que ceux des 
variables numériques, mais ils doivent être suivie du symbole $ (dollar) : A$, 
F1$, etc. 


Remarquons que tous les types de variables peuvent être constitués en 
tableaux. Par exemple, A(3,3) représente un tableau de nombres à deux 


dimensions que l'on peut assimiler à un damier 3x3—9 cases, chacune 
d'entre elles contenant un nombre. Le premier élément (’en haut à 
gauche”) sera A(1,1), et le dernier (‘’’en bas à droite”) sera A(3,3). Les 
nombres entre parenthèses, permettant d'appeler individuellement chaque 
élément d'un tableau s'appellent des indices; un élément de tableau 
s'appelle une variable indicée, et il est à noter que les indices peuvent être 
des constantes (comme dans notre exemple) ou des variables. ORIC 
accepte les tableaux comportant un nombre quelconque de dimensions. 
Bien entendu, tous les éléments d’un tableau doivent être de même nature: 
variables simples, variables entières ou chaînes de caractères. Pour un 
tableau de chaînes à deux dimensions, il suffit de spécifier le nombre de 
chaînes qu'il contiendra; la longueur de chacune d'elles est laissée libre. 


Enfin, il est intéressant de savoir que des variables de types différents 
peuvent avoir le même nom: ORIC ne confondra pas À, A% et Af$. 


1.2.3. Les opérateurs 


Les Opérateurs sont de trois types: 


Les opérateurs arithmétiques, que tout le monde connaît bien: +, —, * 
(multiplié par), / (divisé par) et * (élévation à une puissance). Ces opéra- 
teurs s'utilisent de la manière normale sur les constantes et variables nu- 
mériques, mais remarquons que ” +” peut aussi s'utiliser sur les chaînes. 
Les chaînes ne sont pas additionnées, mais ‘’concaténées”’, c'est-à-dire 
mise l'une à la suite de l'autre. 


Exemples : 


Si A—123 et B—456, alors A+B—579. Par contre, si A$—"123" et 
B$—"456", A$+B$—" 123456‘. 


Les opérateurs relationnels, >, >=, <, <=, =, <> (supérieur, supérieur ou 
égal, inférieur, inférieur ou égal, égal, différent). Ces opérateurs peuvent 
s'utiliser indifféremment sur des nombres ou des chaînes. Dans le cas de 
deux chaînes, celles-ci sont comparées caractère par caractère, et sont 
classées par ordre alphabétique comme dans un dictionnaire. Pour ORIC, 
une condition VRAIE vaut —1, une condition FAUSSE vaut O. 


Exemple : 


5>2 est vrai, donc l'expression vaut —1. 


“TOTO""<"JOJO” est faux, donc l'expression (5>2)="TOTO">"JOJO” 
est VRAIE, ainsi que l'expression (5>2)=NOT("TOTO"<"J0JO"). 


Les opérateurs logiques, AND, OR et NOT (ET, OÙ et NON) s'utilisent pour 
combiner des expressions utilisant des opérateurs relationnels. 


Exemples : 


IF A>2 AND A<5 THEN PRINT A équivaut à : SI A EST COMPRIS ENTRE 
2 ET 5 ALORS PRINT A. 


1.2.4. Mode direct et mode programme 


Dans tous ce qui va suivre, nous nous référerons constamment au mode 
“direct” et au mode ‘programme ”’. Rappelons que toute instruction ou 
séquences d'instructions entrée au clavier et non précédée d'un nombre, 
est exécutée dès que la touche RETURN est tapée : C'est le mode direct. 


Par contre, si une séquence d'instructions est précédée d'un nombre, celui- 
ci sera considéré comme un numéro de ligne. Le fait de frapper RETURN 
n'exécutera pas les instructions, mais les mémorisera pour une exécution 
ultérieure : C'est le mode “différé”, ou mode programme; il faudra taper 
RUN pour exécuter cette séquence. 


Précisons aussi qu'ORIC accepte des lignes de programme de 78 carac- 
tères maximum, qu'une même ligne peut contenir plusieurs instructions si 
celles-ci sont séparées par des : , et que les commandes et noms de 
variables doivent être tapés en majuscules pour qu'ORIC les accepte. 


Enfin, les espaces entre les mots ne sont pas significatifs, contrairemnt à la 
pratique courante dans d’autres Basic comme le Microsoft. On pourra donc 
les omettre pour tirer le meilleur parti de la mémoire ou de la longueur de 
ligne disponible, mais n'oubliez pas que la lisibilité de vos programmes s'en 
ressentira. (Dans tous les programmes présentés ci-après, des espaces ont 
été introduits entre les diverses commandes pour des raisons de clarté.) 


1.2.5. Pour accroître l’efficacité de vos programmes 


Voici quelques renseignements qui intéresseront certainement les fanas de 
l'efficacité : 


— Les variables normales en virgule flottante occupent 7 octets en 
mémoire, contre 4 pour les variables entières. Par contre, les variables 
normales sont traitées plus rapidement, plus vite même que les 
constantes. 


— Onne peut utiliser une variable entière pour les boucles. Leur usage est 
donc surtout conseillé lorsque vous voulez forcer une variable à prendre 
une valeur entière, en évitant d'utiliser INT. Notons que le résultat est 
le même que celui fourni par INT, c'est-à-dire arrondi à l'entier 
inférieur. 


— Par contre, un tableau de variables entières n’occupera que les 2/5° de 
l'espace mémoire exigé pour un tableau identique en virgule flottante: 
2 octets par élément contre 5: à utiliser de préférence quand l'occupa- 
tion de la mémoire est critique. 


— Le mode de stockage des tableaux de chaînes est identique à celui du 
Basic Microsoft, à savoir la longueur de chaque élément du tableau 
n'est pas fixée d'avance, mais peut évoluer en cours de programme. 
Cette solution s'avère la meilleure en ce qui concerne l'espace occupé 
(il faut tout de même 3 octets par élément), mais pas pour la rapidité 
de l'accès. 


— En règle générale, et si la vitesse est primordiale, utilisez des variables 
normales attribuées le plus tôt possible dans le programme et dont le 
nom ne comporte qu'un seul caractère. Les tableaux sont traités plus 
rapidement si des variables sont utilisées comme indices. 


Conventions d'écriture 


Pour faciliter la compréhension, nous présenterons par la suite les Instruc- 
tions et Fonctions de la manière suivante: 


Syntaxe : Donne la syntaxe complète de la commande. 
Application(s}: Donne les détails de son utilisation. 


REMARQUES : Dans cette rubrique seront exposées les particularités de la 
commande, ou les différences avec le Basic Microsoft qui sera pris comme 
référence en raison de sa très large diffusion. 


Exemple : Selon la complexité des cas, un ou plusieurs exemples seront 
donnés. 


Tous les mots écrits en majuscules représentent les mots-clés du 
Basic, et sont à entrer tels quels au clavier. 


Les mots écrits en minuscules et compris entre < > sont les données à 
fournir par le programmeur. 


Les données facultatives sont incluses entre crochets | |. 


Toutes les ponctuations, hormis les deux précédents, font partie inté- 
grante de la syntaxe et doivent être tapées telles quelles. 


En ce qui concerne les nombres, nous suivrons la syntaxe ORIC: Les 
nombres décimaux seront écrits normalement, et les nombres hexadé- 
cimaux seront précédés de %#. 


X, Y, Z représentent des nombres en virgule flottante. 
N, M des nombres entiers. 
A représente une adresse-mémoire (entier compris entre O et 65535). 


X$, A$, B$ des chaînes de caractères quelconques. 


Exemple: INPUT [<'’commentaire” :>]<variable 1>[<,variable 2>] 


L'rinstruction INPUT est la commande BASIC. 


, 


Le commentaire est optionnel, sinon il doit être entre guillemets ” ” et 


suivi de; . 
Au moins une variable doit être donnée comme argument. 


On peut si on le désire mentionner plusieurs variables, en les séparant 
par des virgules. 


Ainsi, il serait correct d'écrire: 


INPUT" Donnez votre âge et votre mois de naissance” ;AG,MO$ 


1.4. Les instructions du Basic 


CALL 
Syntaxe: CALL <A>,<Nom de variable de chaîne> 


Application: Cette instruction appelle une routine en langage machine, 
préalablement écrite en mémoire et commençant à l'adresse (A) donnée 
comme argument’; la valeur de la variable sera passée à la routine. || est à 
noter qu'on ne retournera au Basic que si un RTS (#60, code du 6502 
équivalent au "RETURN" du Basic) est rencontré. Des choses amusantes 
se passeront si vous appelez des routines de la ROM, mais l'ordinateur se 
bloquera souvent ! 


Exemple : Tapez CALL 60000: Cela équivaut à un RESET par programme, 
avec le logo de mise en route en prime. 


CSAVE 


Syntaxe : CSAVE ‘’<nom du programme>"{[,S][, AUTO] ou bien 
CSAVE ‘’<nom>",A<adresse début>,E<adresse fin>[,S] 
[AUTO] 


Application: Dans sa première syntaxe, CSAVE sert à enregisrer sur 
cassette le programme se trouvant en mémoire. Le nom est à votre discré- 
tion, et peut être une constante ou une variable comportant jusqu'à 17 
caractères. L'option AUTO provoquera le démarrage automatique du 
programme lorsque celui-ci sera rechargé. Si vous utilisez l'option S, la 
sauvegarde se fera à la vitesse de 300 baud, vitesse très lente offrant une 
sécurité maximale. Sinon, le transfert se fait au rythme de 2400 baud. 


Dans sa deuxième syntaxe, cette instruction puissante permet de sauve- 
garder une zone-mémoire située n'importe où dans la RAM. On doit donner 
un nom comme précédemment, et on peut choisir sa vitesse mais l'option 
AUTO ne devrait être incluse que si la zone contient une routine exécutable 
en langage-machine. Celle-ci est définie par ses adresses de début (suivant 
la lettre A) et de fin (suivant la lettre E). 


Exemple : 


La première application est évidente, mais on mesurera l'importance de la 
deuxième, qui permet de sauvegarder aussi bien des routines en langage- 
machine que des jeux de caractères où des écrans graphiques. 
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CSAVE'"ECRAN",A#AOO0,EXBF3F sauvegarde l'écran HIRES, 
CSAVE" JEU”, A#B500,E#BB7F sauvegarde les jeux de caractères. 


(N.B. ces valeurs correspondent à la version 48K.) 


CLOAD 


Syntaxe: CLOAD ['’<nom du programme>"”][,S] ou bien 
CLOAD ['’<nom>”]|[,S],A<adresse début>,E<adresse fin> 


Application: Instruction jumelle de CSAVE, celle-ci sert à recharger en 
mémoire des programmes se trouvant sur cassette. Si un nom n'est pas 
fourni, ORIC chargera le premier programme rencontré sur la bande. Il est 
évidemment indispensable de recharger le programme à la même vitesse 
de transfert que celle utilisée lors de sa sauvegarde : n'oubliez pas le "S"! 
Sinon, lors du chargement d'une zone-mémoire, les paramètres sont les 
mêmes que pour CSAVE. 


REMARQUE: La manière de sauvegarder et recharger correctement des 
zones-mémoire est traitée in extenso dans la deuxième partie (8 2.4.2), 
consacrée à l'organisation de la mémoire. 


Exemple : CLOAD" ”,S chargera le premier programme rencontré en vitesse 
lente. 


DEF FN 
Syntaxe: DEF FN<nom>(<variable>)—<expression numérique> 


Application: Cette instruction permet au programmeur de définir ses 
propres fonctions, qui seraient éventuellement absentes du Basic. Le nom 
suit les règles d'appellation des variables; il servira par la suite à identifier 
la fonction. Pour l'utilisation de la fonction une fois celle-ci définie, voir 
aussi FN dans le chapitre suivant. 


REMARQUES : Pour ceux qui seraient familiers avec d'autres Basic, signa- 
lons que les fonctions définies ne peuvent traiter que des nombres, et ne 
doivent contenir qu'une seule variable; celle-ci est une variable “fantôme, 
c'est-à-dire que son nom peut être utilisé indépendamment à un autre 
endroit du programme. 


Exemple(s) : 


DEF FNTA(X)=SIN(X)/COS(X) calcule la tangente de l'angle X. 
DEF FNAS(X)=ATN(X/SOR(—X+*X+1)) calcule l'arcsinus de l'angle X. 


DEF USR 
Syntaxe: DEF USR=<A> 


Application: Cette commande permet de définir l'adresse de début (A) 
d'une routine en virgule flottante en langage machine, avant qu'elle ne soit 
appelée. Son avantage sur CALL réside dans le fait qu'elle permet aussi 
bien de transmettre des données à la routine que d'en recevoir de celle-ci. 
(Voir fonction USR, 8 1.5). 


DIM 
Syntaxe :DIM<tableau 1>(<dim.1>[<,dim.2>]...)[,<tableau 2>1(..)]Jetc. 
Application : Pour définir les dimensions des tableaux, avant leur utilisation. 


REMARQUES : 


— Une fois un tableau dimensionné, toute tentative de le re-dimensionner 
se soldera par un message d'erreur. Il faut soit remettre tous les 
éléments du tableau à O, soit utiliser CLEAR ou RUN qui remettent à O 
toutes les variables. Quel que soit le nombre de ses dimensions, un 
tableau dont aucune dimension n'a plus de 10 éléments n'a pas besoin 
d'être déclaré par DIM. 


— Rappelons qu'en ce qui concerne les tableaux de chaînes, la chaîne 
constitue l'élément, et non le caractère comme pour certains autres 
Basic; la conséquence pratique est que la longueur des chaînes n'a 
pas besoin d'être définie à l'avance, celle-ci peut donc varier en cours 
de programme. 


Exemples : 


DIM A$(15) déclare un tableau à une dimension contenant 15 chaînes. 


DIM A(5,5,15),A%(20,20) déclare un tableau numérique en virgule flot- 
tante à 3 dimensions, et un tableau d'entiers à deux dimensions. 


EDIT 
Syntaxe: EDIT<N®° de ligne> 
Application: Affiche la ligne ayant le N° spécifié. 


REMARQUES: Contrairement à l'usage dans d'autres Basic, la commande 

EDIT sur ORIC est pratiquement équivalente à LIST<N° de ligne>. Seules 

différences: 

— Avec EDIT, le curseur se place au début de la ligne affichée. 

— Contrairement à LIST, EDIT vous enverra un message d'erreur si vous 
demandez une ligne inexistante. 


DOKE 
Syntaxe: DOKE<A>,<X> 


Application: Instruction utile pour charger deux adresses consécutives de 
la mémoire (A et A+1) avec un nombre X codé sur deux octets. L'adresse A 
reçoit l'octet de poids faible et A+1 l'octet de poids fort. À et X sont des 
variables où constantes comprises entre O et 65535, et seront arrondis à 
l'entier inférieur. 


REMARQUE : DOKE A est l'équivalent exact de: 
POKE A,X—(INT(X/256)+*256:POKE A+1,INT(X/256) 


Exemple : 


DOKE #26D,48039 place INT(48039/256)-187 à l'adresse #26E, et 
48039-(187*256)—167 à l'adresse #26D. 


GET 
Syntaxe: GET <variable chaîne> 


Application: Lorsque cette instruction est rencontrée dans un programme, 
l'ordinateur attend qu'une touche soit frappée; dès que cela est fait, 
<variable chaîne> contiendra le caractère correspondant à la touche 
actionnée et le programme se poursuit. 


REMARQUE: Cette commande est utile lorsqu'il n'est pas nécessaire 
d'exécuter d'autres tâches en attendant une entrée au clavier. Voir aussi la 
fonction KEY$ au chapitre suivant. L'usage de GET est interdit en mode 
direct. 
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Exemple : 


100 PRINT''POUR CONTINUER, PRESSER UNE TOUCHE” 
110 GET X$ 


Suite du programme 


100 PRINT''VOULEZ-VOUS CONTINUER ?(O/N)’’ 
110 GET X$ 

120 IF X$—"’N'" THEN END 

130 IF X$—”’O’’ THEN GOTO 150 

140 GOTO 100 


Suite du programme 


Dans cet exemple, on retournera à la ligne 100 tant qu'une réponse 
correcte (’O” ou ‘’N') ne sera pas fournie. 


GRAB 
Syntaxe: GRAB 


Application: Récupère la zone-mémoire normalement affectée à l'écran 
graphique haute résolution pour des programmes ou variables. Cette zone, 
inutilisée dans les modes TEXT et LORES, n'est pas accessible au Basic à 
moins d'exécuter un GRAB. 


REMARQUE: La zone “libérée” se situe entre les adresses #1800-#3400 
sur la version 16K, et #9800-#B400 sur la version 48K. GRAB permet de 
récupérer 7168 octets pour le Basic. 


HIMEM 
Syntaxe : HIMEM <adresse> 


Application: Définit la taille de la mémoire utile, en fixant l'adresse la plus 
haute de la zone accessible par le Basic. La zone située au-dessus de 
HIMEM sera interdite au Basic, donc disponible pour des routines en 
langage-machine. 


REMARQUE: A la mise sous tension, HIMEM est fixé à 40704 (#9FF0) pour 
la version 48K, c'est-à-dire en plein milieu de l'écran graphique haute- 
résolution et des choses bizarres se passeront si votre programme utilise 
beaucoup de chaînes ou tableaux de chaînes. Prenez donc l'habitude de 
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placer l'instruction HIMEM #97FF au début de vos programmes, ce qui 
rétablira la valeur correcte. HIMEM est connu aussi sous le nom de 
RAMTOP ou TOP dans d'autres Basic. 


Exemples : 


HIMEM 30000 
HIMEM #17FF (Valeur correcte sur version 16K) 


IF .… THEN .….ELSE 


Syntaxe: IF<condition 1 >TAN D 


à <condition 2>].. THEN <instructions> 


ou 1F2554 THEN ELSE <liste d'instructions> 


Application: Dans sa première syntaxe, exécutera la série d'instructions 
situées après THEN si <condition> est VRAIE (——1), sinon continue 
l'exécution du programme à la ligne suivante. 


Dans la seconde syntaxe, les instructions situées après THEN seront 
exécutées si <condition> est VRAIE (——1), et si <condition> est FAUSSE 
(—0) le programme exécutera les instructions placées après ELSE. 


REMARQUES : 


— IF<cond.> THEN GOTO <N° de ligne> peut s'écrire indifféremment 
IF<cond.> THEN <N° de ligne> et aussi IF<cond.> GOTO <N° de 
ligne>. 


— Les IF imbriqués sont autorisés si ELSE n'est pas utilisé. 
On peut écrire : IF<condi>THEN IF<cond2> THEN... 
mais pas :IF<cond1>THEN..ELSE I1F<cond2>..etc.. 


— ELSE ne peut pas s'utiliser dans tous les cas. ORIC considérera qu'il y a 
une faute de syntaxe si une variable en virgule flottante est placée juste 
avant ELSE: = 

IF<cond.>THEN A=B ELSE... sera refusé, 
par contre, 

IF<cond.> THEN A=B:X=1 ELSE... 
ainsi que IF<cond.>THEN A=B% ELSE.... 
seront acceptés. 


Exemples : 


IF A >B AND A<C THEN PRINT/'A est compris entre B et C”’ 
IF A/2=INT(A/2) THEN PRINT''A est pair’ ELSE PRINT''A est impair” 
10 IF X$—”’OUI’’ THEN 100 ELSE 200 


INK 
Syntaxe: INK <N> Avec O<=N<=—7 


Application : Permet de choisir la couleur des caractères pour la totalité de 
l'écran, sans perturber l'affichage. Ne modifie pas les couleurs choisies 
localement par des codes appropriés. 


REMARQUE: Pour l'équivalence entre les nombres de O à 7 et les couleurs 
apparaissant à l'écran, voir 8 3.4. 


Exemple: INK 1 Affiche tous les caractères en rouge. 


LIST 
Syntaxe : LIST<N° de ligne> 
ou LIST<N® de ligne début>— 
ou LIST—-<N° de ligne fin> 
ou LIST<N® de ligne début>—<N° de ligne fin> 


Application: Affiche à l'écran les lignes de programme situées entre les 
limites spécifiées. Si le N° de début est omis le programme est listé depuis 
le début, sinon lorsque le N° de fin est omis le programme est listé jusqu'à 
la dernière ligne existante. 


REMARQUE: Le fait de fournir des numéros de ligne inexistants, plus petits 
ou plus grands que ceux du programme ne provoque pas d'erreur. 


Exemple : 


LIST 100-200 


LORES 
Syntaxe : LORES<N> Avec N=0 ou N=1 
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Application: Sélectionne un des trois modes d'affichage disponibles. Très 
proche du mode TEXT, avec les différences suivantes : 


— L'affichage se fait en vidéo inverse, c'est-à-dire blanc sur fond noir. 

— Si N=0O, les caractères standards du jeu ASCII seront utilisés. 

— Si N=1, l'affichage se fera avec le 2° jeu de caractères (pavés semi- 
graphiques). 


REMARQUE: Si CLS ou CTRL L sont utilisés pour effacer l'écran, on repas- 
sera en mode TEXT. || faut refaire LORESO ou LORES1 pour effacer l'écran 
en restant dans le même mode. Voir aussi le 8 3.6.1. 


ON … GOTO et ON … GOSUB 


Syntaxe : ON <variable> GOTO <N° de ligne>[,<N° de ligne>,..].. 
et ON <variable> GOSUB<N° de ligne>[,<N° de ligne>...].. 


Application: Si <variable>=1, le GOTO ou GOSUB s'effectuera vers la 
première ligne de la liste, si <variable>=2 vers la deuxième et ainsi de 
suite. 

REMARQUES : 


— Si la variable est égale à O, ou est supérieure au nombre de lignes 
spécifiées, le programme continuera à la ligne suivante. 


— Une erreur sera provoquée si la variable est négative. 


— Si la variable provient d'un calcul et comporte une partie décimale, elle 
sera arrondie à l’entier inférieur. (Voir 8 1.6.2 pour la manière de calcu- 
ler un arrondi exact). 


PAPER 
Syntaxe: PAPER<NS Avec O<=N<=7 


Application: Instruction complémentaire de INK, permettant de changer la 
couleur du fond sur tout l'écran sans perturber l'affichage. Comme pour 
INK, les couleurs choisies localement ne sont pas affectées. 


Exemple : 


10 FOR N=0 TO 7 
20 PAPER N':WAIÏT 50 
30 NEXT N 


Donnera à l'écran successivement chacune des huit couleurs. 


PLOT 


Syntaxe : PLOT<colonne>,<ligne>,<N> Avec O>=N>—255 
ou PLOT<colonne>,<ligne>,<X$> 


Application : Permet d'afficher des données ou des attributs à l'écran, à la 
position spécifiée par <colonne> et <ligne>. 


— Dans la première syntaxe, si N>31, c'est le caractère de code ASCII N 
qui sera affiché à l'endroit désiré. Si N>159 (31+128), on obtiendra 
l'affichage en vidéo inverse du caractère de code ASCII N—128. Enfin, 
si N<32, il sera considéré comme un attribut définissant la couleur, le 
jeu de caractères, etc. (cf. 8 3.4). 


— Dans sa deuxième syntaxe, PLOT affichera à l'endroit désiré une chaîne 
de caractères ou variable-chaîne quelconque. 


— Si l’une des deux coordonnées fournies à PLOT est située en dehors 
des limites de l'écran, une erreur en résultera. 


REMARQUES : PLOT n'est pas un équivalent de l'instruction PRINT AT, que 
l'on trouve sur d'autres machines, dans la mesure ou le curseur n'est pas 
déplacé après affichage des données. Pour l'adressage direct curseur, voir 
8 3.5.2. 


De plus, PLOT contrairement à PRINT n'accepte qu’une seule donnée à 
afficher à la fois. 


Exemples : 


PLOT 10,10, BONJOUR‘ est équivalent à 
X$—’"’ BONJOUR‘ :PLOT 10,10,X$ 


PLOT 10,10,12:PLOT 11,10, BONJOUR’ 


affiche le message au centre de l'écran, en caractères clignotants. (12 est 


l'attribut ‘caractères clignotants"). 
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POP 
Syntaxe : POP 


Application: Supprime la dernière adresse de retour dans la pile des 
GOSUB. Conséquence pratique : Si un RETURN est rencontré après un 
POP, on ne retournera pas à l'instruction suivant le dernier GOSUB, mais 
à l'instruction suivant /’avant-dernier GOSUB rencontré si toutefois celui-ci 
existe ; si ce n'est pas le cas, une "RETURN WITHOUT GOSUB ERROR" 
sera provoquée. À n'utiliser qu'avec précautions ! 


Exemples : 


10 GOSUB 100 
20 PRINT 1 


100 REM TER SOUS-PROGRAMME 
120 GOSUB 200 

130 PRINT 2 

140 RETURN 


200 REM 2EME SOUS-PROGRAMME 
210 POP :PRINT 3 
220 RETURN 


Normalement, la ligne 220 devrait provoquer le retour à la ligne 130. Mais 
avec le POP de la ligne 210, c'est à la ligne 20 que le programme repren- 
dra: L'adresse de retour à la ligne 130 a été éliminée. 


PULL 
Syntaxe: PULL 


Application: À exactement la même fonction que POP, mais pour les 
boucles REPEAT-UNTIL. Si deux boucles REPEAT-UNTIL sont imbriquées, 
un PULL exécuté une seule fois dans la boucle intérieure provoquera un 
saut au REPEAT externe. Encore plus traître que POP! 


REMARQUE: Un PULL au mauvais endroit vous vaudra un BAD UNTIL 
ERROR, ou bien engagera le programme dans une boucle infinie. Donc, 
testez bien vos boucles AVANT d'inclure un PULL. 


RELEASE 
Syntaxe: RELEASE 


Application: Commande complémentaire de GRAB (cf. cette instruction), 
permet de restituer à l'écran graphique haute-résolution la mémoire que 
vous lui avez indûment volée pour vos programmes Basic. 


REPEAT-UNTIL 
Syntaxe : REPEAT 


lignes de programme 


UNTIL<condition 1>0N <condition 2>]..etc 
Application: Toutes les lignes de programme situées entre REPEAT et 
UNTIL sont exécutées en boucle, jusqu'à ce que les conditions situées 
après UNTIL soient VRAIES (——1). 


REMARQUE : Ces commandes sont l'équivalent ORIC du WHILE-WEND du 
Basic Microsoft. Avec une différence cependant: Alors que WHILE teste la 
condition au début, UNTIL teste en fin de boucle. Ce qui implique que 
même si la condition est fausse avant d'entrer dans la boucle, cette der- 
nière sera exécutée au moins une fois. 


Exemple : 


10 REPEAT 

20 X=RND(1)+36+2 :Y=RND(1)*26 
30 PLOTX,Y,'’*" 

40 UNTIL X=3 


Ce programme dessinera des étoiles sur l'écran à des endroits aléatoires, 
jusqu'à ce qu'une position particulière soit atteinte. 


TRON-TROFF 
Syntaxe: TRON 
TROFF 
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Application: L'instruction TRON (TRace ON) fournit une aide précieuse à la 
mise au point des programmes: En effet, les numéros de toutes les lignes 
de programme exécutées après TRON seront affichés à l'écran en 
séquence, permettant ainsi de suivre le cheminement du programme et 
donc de détecter où et pourquoi une erreur se produit. TROFF (TRace OFF) 
permet d'annuler TRON. 


REMARQUE: L'usage de TRON est impossible en mode direct, il faut donc 
l'incorporer à un endroit propice du programme à tester, et le supprimer 
ensuite une fois celui-ci au point. Par contre, TROFF peut s'utiliser indiffé- 
remment en modes direct ou indirect. 


WAIT 
Syntaxe: WAIT <N> 


Application: Suspend l'exécution du programme pour une durée égale à 
(N+0.01) secondes. Donc WAIT 1 suspend l'exécution pendant 1/100° de 
seconde, ou 10 ms. 


REMARQUE: Certaines instructions, si elles s'exécutent de façon répétitive 
dans une boucle, ne peuvent agir correctement que si un WAIT de longueur 
appropriée est inclus dans la boucle. |l s’agit en particulier de INK, PAPER 
et des instructions générant un son (cf. 5° partie). 


Les fonctions du Basic 


FALSE ET TRUE 


Syntaxe : FALSE 
TRUE 


Application: Ce sont deux variables réservées du Basic, au même titre que 
PI. FALSE (FAUX) vaut 0, et TRUE (VRAI) vaut —1. On les utilise dans les 
comparaisons avec ÎF, pour améliorer la lisibilité des programmes entre 
autres. 


Exemple : 


IF (A>2 AND B=>10)=TRUE THEN... 


DEEK 
Syntaxe : DEEK(<A>) 


Application: Cette fonction nous permet de connaître le contenu de deux 
adresses-mémoire consécutives (A et A+1), il s'agit bien sûr du complé- 
ment de l'instruction DOKE. L'adresse A contient l'octet de poids faible, et 
A+1 l'octet de poids fort. À doit être compris entre O et 65534. 


REMARQUE: PRINT DEEK(A) est équivalent à: 
PRINT PEEK(A)+PEEK(A+1)*256 


Exemple : 


PRINT DEEK(# A6) vous retournera la valeur de HIMEM 


FN 
Syntaxe: FN<nom>(<variable>) 


Application: Une fonction numérique préalablement définie grâce à DEF 
FN (cf. cette instruction), s'utilise ensuite comme n'importe quelle autre 
fonction mathématique standard (SIN ou TAN par exemple) grâce à la 
fonction FN. 


Exemple : 


10 REM Conversion Degrés — Radians 
20 DEF FNDR(X)=(PIxX)/180 


100 A=30 
110 PRINT FNDR(A) ;SIN(FNDR(A)) 


Le résultat affiché sera 0.523598775 0.5, nombres qui sont respective- 
ment la conversion d'un angle de 30° en radians, et le Sinus de 30°. 


FRE 


Syntaxe:  FRE(0) 
ou FRE(" ”) 
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Application: Dans sa première syntaxe, cette fonction sert à connaître le 
nombre d'octets encore inoccupés en mémoire, pendant l'écriture d'un 
programme par exemple. 


Dans sa deuxième syntaxe, la fonction retourne aussi la quantité de 
mémoire inoccupée, mais en plus force une récupération de l'espace conte- 
nant des données inutiles ou supprimées (garbage collection). 


REMARQUE: L'ORIC utilise une méthode de rangement des chaînes en 
mémoire qui a pour caractéristique de ne jamais effacer des données: Les 
nouvelles données sont ajoutées au précédentes, même si certaines 
d'entre ces dernières sont supprimées par le Basic en cours de route. 
Lorsque la totalité de la mémoire est occupée, un ‘nettoyage ” est effectué 
(appelé garbage collection''), supprimant toutes les données devenues 
inutiles. C'est ce nettoyage qu'on peut provoquer artificiellement par 
l'usage de FRE" ”). 


Exemple: 


10000 IF FRE(0)< 200 THEN PRINT''PLUS DE MEMOIRE!” 
10010 RETURN 


Ce sous-programme peut être ajouté à un programme ‘gourmand pour 
vous prévenir quand il n'y a presque plus de mémoire libre. 


HEXS 
Syntaxe : HEX$(<X>) 


Application: Retourne une chaîne représentant la valeur hexadécimale de 
X. 


REMARQUE: X ne peut être ni négatif, ni supérieur à 65535. 


Exemple : 


PRINT HEX$(65535) nous donne # FFFF 


KEYS$ 
Syntaxe: KEY$ 
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Application: Scrute le clavier, mais de façon fugitive: L'exécution du 
programme continue après que la fonction ait été rencontrée, qu'une 
touche soit actionnée ou non à ce moment. La fonction doit donc être 
incluse dans des boucles pour lire efficacement le clavier. C'est la solution 
idéale pour les jeux, où le clavier doit être constamment surveillé sans pour 
cela empêcher d'autres actions de s'exécuter simultanément. 


REMARQUE: On aura bien sûr reconnu là le INKEY$ des autres Basic, à 
peine déguisé. Voir aussi l'instruction GET au chapitre précédent. 


Exemple : 


5 REM DEPLACEMENT D'UN MOBILE SUR L'ECRAN 
10 CLS :X=10:Y=10 :A$="< x >” 
20 XM=X :YM=Y 
30 X$—-KEY$ :A=ASC(X$+"" ’’) 

40 IF A<8 OR A >11 THEN 30 
50 PLOT XM,YM,” ” 

60 IF A8 THEN X=X-1 

70 IF A=9 THEN X=X+1 

80 IF A=10 THEN Y=Y+1 

90 IF A=11 THEN Y=Y-1 

100 PLOT X,Y,A$ :GOTO 20 


— Les variables XM et YM servent à mémoriser l'ancienne position du 
mobile, pour l'effacer avant un déplacement. 


— A la ligne 30, la variable A prend le code ASCII de la dernière touche 
pressée. On ajoute systématiquement un espace à X$, car si X$ est une 
chaîne vide ASC(X$) génère un code d'erreur. 


— Ligne 40: Si aucune touche de déplacement n'a été pressée (codes 8 à 
11), rien ne se passe. 


— Ligne 50: Dans le cas contraire, on efface d'abord le mobile à son 
ancienne position en y imprimant 3 espaces. 


POS 
Syntaxe : POS(0) 


Application: Retourne la position horizontale du curseur, donc une valeur 
allant de O à 39. 
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REMARQUE: Cette fonction est inutilisable en mode direct, car après un 
"RETURN" le curseur retourne à la première colonne de la ligne suivante, 
et on obtient toujours CO. 


RND 
Syntaxe: RND(N) 


Application : Cette fonction donne des résultats différents selon la valeur de 
N: 


— Si N>=1, retourne un nombre pseudo-aléatoire compris entre O et 1 
non inclus. 


— Si N=0, retourne toujours le nombre précédent. 


— Si N<O, le nombre fourni est fonction de la valeur de N, et toujours le 
même pour des valeurs identiques de N. 


Exemple : 
10 REM DE ELECTRONIQUE 


20 PRINT INT(RND(1)x6+1) 
30 GET X$:GOTO 20 


SCRN 
Syntaxe : SCRN(<colonne>,<ligne>) 


Application: Utilisé dans les modes TEXT et LORES, retourne le code 
ASCII du caractère situé à la position spécifiée de l'écran. 


Exemple: IF SCRN(15,10)—42 THEN EXPLODE 


SPC 
Syntaxe : SPC(X) 


Application: Utilisable uniquement avec PRINT et LPRINT, déplace de X 
colonnes vers la droite la position d'affichage. 


REMARQUE: Dans certains cas, peut remplacer avantageusement la fonc- 
tion TAB qui marche assez mal sur l'ORIC. 
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Exemple: 


PRINT SPC(10)’’JE M'APPELLE ’SPC(5)'"ORIC 


TAB 
Syntaxe : TAB(X) 


Application : Utilisée avec PRINT, cette fonction est théoriquement sensée 
déplacer le curseur à la X° colonne d'un ligne. 


REMARQUE : En pratique, TAB possède plusieurs caractéristiques bizarres : 


— Pour obtenir un positionnement correct, il faut ajouter 12 à la valeur de 
X. 


— On ne peut pas utiliser TAB deux fois sur la même ligne. 


Pour des méthodes plus efficaces d'adressage curseur, voir 
paragraphe 3.5.2. 


USR 
Syntaxe: USR(X) 


Application : La variable en virgule flottante X est passée à une routine en 
langage machine, dont l'adresse de début a été préalablement définie par 
DEF USR. La fonction USR retournera ensuite la valeur stockée dans 
l'accumulateur. 


Exemple: 


10 DEF USR=-;#400 
20 A=22.5 
30 PRINT USR(A) 


MID$ 
Syntaxe: MID$(AS,N[,M]) 


Application: Cette fonction très puissante permet d'extraire une partie 
d'une chaîne de caractères: La chaîne retournée contiendra M caractères 
de A$, en commençant par le N°. 


REMARQUES : 
— Si M est omis, tous les caractères de A$ à droite du N° seront pris. 
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— SiN est supérieur à la longueur de A$ ou inférieur à 1, une erreur sera 
provoquée. 


Exemples : 


10 A$=’123456789" 
20 PRINT MID$(A$,2,5) 


Voici pour clore ce chapitre un petit programme qui utilise toutes les fonc- 
tions de découpage de chaînes de manière amusante. Vous pourrez facile- 
ment l'incorporer comme sous-programme dans vos propres créations: 


5 REM CHENILLE LITTERALE 
10 CLS :GOSUB 1000 
100 A$—A1$+A2$+A3$+A4$ :N=0 :LA=LEN(A$) 
110 WAIT 10 :PLOT 1,25,M$ 
120 N=N+1:1F N=LA THEN N=1 
130 IF N>=LA-38 THEN M$=RIGHT$(A$,LA-N)+LEFT$(A$,38—(LA—N)) : 
GOTO 110 
140 M$=-MID$(A$,N,38) :GOTO 110 


1000 READ A1$,A2$,A3$,A4$ :RETURN 

1010 DATA ’’CETTE LONGUE PHRASE EST UNIQUEMENT DESTINEE A TESTER 
LE PROGRAMME, 

1020 DATA ’’DONT LA SEULE FONCTION EST DE FAIRE DEFILER LADITE 
PHRASE DE DROITE ” 

1030 DATA ’’A GAUCHE SUR L'ECRAN, CREANT AINSI UNE ANIMATION DU 
PLUS BEL EFFET: ” 

1040 DATA''IDEAL POUR LES EXPLICATIONS DANS VOS PROGRAMMES! 


“x” 


Explications : 


Le principe du programme est assez simple : On crée une longue chaîne, 
puis on en extrait une sous-chaîne qui est affichée toujours au même 
endroit de l'écran. En décalant la sous-chaîne d'un cran vers la droite à 
chaque fois, on obtient l'effet de défilement désiré. 


— 1000: Lecture de quatre chaînes dans des DATA; ces quatre chaînes 
formant une longue phrase sont ensuite ajoutées pour former A$ (ligne 
100). Cette technique est indispensable, du fait que l'on ne peut mettre 
que 78 caractères par ligne de programme; n'oubliez pas cependant 
quand vous mettrez vos propres phrases qu'une chaîne ne peut conte- 
nir que 255 caractères. 
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1.6 


— 140: Chargement de M$ avec un segment de longueur appropriée 
extrait de A$. 


— 130: S'il ne reste plus 38 caractères à prendre à la fin de A$, cette 
ligne raccorde la fin de A$ avec un bout de longueur appropriée pris à 
son début: De cette manière, M$ fait toujours 38 caractères de long. 


— 120: Lorsque N atteint la fin de A$, on repart au début. 


— 110: Introduction d'une petite pause pour améliorer la lisibilité, et 
impression de M$ à l'endroit désiré. 


Instructions et fonctions non résidentes 


Malgré la richesse de son ‘’ vocabulaire”, ORIC n'est cependant pas parfait 
et certaines commandes disponibles sur les Basic très évolués lui font 
défaut. Nous avons essayé de sélectionner celles d'entre elles qui nous 
paraissaient les plus importantes, et dont la simulation par un petit 
programme reste dans des limites raisonnables. 


1.6.1. Instructions 


MIDS(AS,N[,M])=B$ 


Application :Cette instruction, inverse de la fonction du même nom, permet 
de remplacer M caractères dans A$, à partir du Nième par les M premiers 
caractères de B$. Si M est omis, B$ est inséré en entier. Si B$ contient plus 
de caractères que A$ ne peut en recevoir, les caractères excédentaires 
seront ignorés. 


Équivalent ORIC : L'ORIC possède bien la fonction MID$ permettant de lire 
une fraction d'une chaîne, mais pas l'instruction permettant de remplacer 
une partie du contenu d'une chaîne par une autre. L'expression suivante la 
remplace : 


A$=LEFTS(A$,N—1)+LEFT$(B$,M)+RIGHT$(A$,LEN(A$)—(N+M-—1)) 
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PRINT AT<colonne>,<ligne> ;<liste de constantes ou variables> 


Application : Pour imprimer des données à un endroit précis de l'écran, en y 
déplaçant le curseur au préalable; ensuite, le curseur reste au même 
endroit. 


Équivalent ORIC : Nous savons que PLOT permet d'imprimer une chose à la 
fois à une position particulière, mais sans déplacer le curseur; il en va de 
même pour le programme en langage-machine présenté dans le manuel 
ORIC. La solution proposée est un véritable adressage curseur, X et Y y 
représentent les colonne et ligne. Ensuite, il suffit de faire un PRINT pour 
afficher à l'endroit désiré. 


POKE 616,Y :?:POKE 617,X 


Pour plus de précisions sur les variables-système utilisées, voyez le para- 
graphe 3.5.2. 


PRINT USING<chaîne> :<liste de constantes ou variables> 


Application: Permet d'afficher des nombres selon un format défini par 
<chaîne>. L'intérêt principal réside dans le fait que pour les tableaux de 
nombres, et surtout lorsque ceux-ci comportent des décimales, la lisibilité 
et la présentation sont grandement améliorées par un format identique 
(même nombre de décimales, alignement sur la virgule). 


Équivalent ORIC : Bien sûr, les vrais PRINT USING autorisent une grande 
souplesse dans le choix des formats d'impression. Néanmoins, le 
programme qui suit effectue toutes les opérations d'arrondi exact et de 
formatage d'un nombre. Celui-ci sera justifié à droite, avec un espace à 
droite des décimales s'il est positif et le signe moins s'il est négatif, selon la 
norme de cette instruction. Si un nombre est trop grand pour le format, il 
sera remplacé par “’####". 
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60000 REM PRINT USING 
60005 REM F$-FORMAT ('’x##x,44/) N=NOMBRE A TRAITER 
60010 FOR 1=1 TO LEN(F$):1F MID$(F$,1,1)=/".’’ THEN 


P1=1-1 :P2=LEN(F$)-P1-1 :GOTO 60020 


60015 NEXT :P1=LEN(F$) :P2=0 
60020 N=INT((Nx104P2)+.5)/104P2 :ST$—"" # sx scûe ace Se ee ee eee 77 


60030 N$=STR$(N) :SN$=LEFT$(N$,1) :N$—RIGHT$(NS$,LEN(N$)—1) :L=LEN(N$) 
60040 P=1 :REPEAT 

60050 P=P+1:UNTIL P>L OR MID$(N$,P,1)=""." 

60060 NE$—LEFT$(NS$,P—1) 

60070 IF P<=L THEN ND$-RIGHT$(N$,L-P) ELSE ND$—"" ”” 
60080 IF LEN(ND$)<=P2 THEN 60110 

60090 ND$-ND$+/’0" 

60100 GOTO 60080 

60110 IF LEN(NE$)>=P1 THEN 60130 

60120 NE$—”"  ’’+NE$ :GOTO 60110 

60130 IF ND$=’’”” THEN N$=NES$+SN$ :GOTO 60150 

60140 N$=NE$+”".""+ND$+SN$ 

60150 IF LEN(N$)>P1+P2+2 THEN N$=LEFT$(ST$,P1+P2+1) 
60160 RETURN 


Explication : 
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Les variables que vous devez passer au programme sont N, qui est le 
nombre à traiter, et F$ qui détermine le format: il sert à illustrer les 
“positions” disponibles pour imprimer N, et peut contenir n'importe 
quels caractères: L'important est leur nombre avant et après le point 
décimal. 


Les lignes 60010 et 60015 lisent F$ pour en extraire P1 et P2, repré- 
sentant respectivement le nombre de chiffres avant et après la virgule. 


La ligne 60020 arrondit N au nombre de décimales souhaitées. 


Ensuite, N est converti en chaîne (N$), puis le signe en est extrait et 
placé dans SN$. 


Les lignes 60040 et 60130 chargent NES et ND$ avec les parties 
entière et décimale de N$, mises au format. 


Ensuite, le nombre est reconstitué, de manière différente s’il est entier 
(ligne 60130) et s'il comporte des décimales (lignes 60140). 


Enfin, si N$ est plus long que le format demandé, il est remplacé par 
une chaîne de même longueur contenant des ‘’#"”’. Si vous ne désirez 
pas cette option, vous pouvez supprimer la ligne 60150 et la deuxième 
moitié de 60020. 


RENUM<ancien N° début>,<nouveau N° début>, incrément 


Application: Renumérote les lignes d’un programme. La renumérotation 
commence à <ancien N° début>, qui prend la valeur de <nouveau N° 
début>. Les nouveaux numéros sont séparés de <incrément>. 


Équivalent ORIC: Notre programme fera plus de choses que le RENUM 
standard, puisqu'il vous permet de choisir à la fois la ligne ou commence la 
renumérotation et la ligne où elle s'arrête. || a aussi l'avantage d'être court 
et rapide (environ 7 secondes pour 100 lignes), mais attention: il ne 
change pas les numéros de ligne suivant les GOTO et GOSUB. 


60000 REM RENUMEROTATION LIGNES 

60010 REM SANS GOTO ET GOSUB 

60020 N=—%# 501 :CLS 

60030 INPUT'’Anciens Nos Debut, Fin’’;DE,FI 

60040 INPUT’ Nouveau No Début, Increment”’;DD,IN 
60050 A=DEEK(N+2):1F A< DE THEN 60080 

60060 IF A—60000 THEN 60090 

60070 DOKE N+2,DD :DD=DD+IN :IF A=FI THEN 60090 
60080 N—DEEK(N) :GOTO 60050 

60090 CLS :END 


Explication : 


Ce programme tire parti du fait qu'en mémoire, chaque numéro de ligne est 
précédé de deux octets contenant l'adresse où commence la ligne suivante. 
De ce fait, on peut sauter de début de ligne en début de ligne sans être 
obligé de lire tous les octets intermédiaires, et la vitesse dépend unique- 
ment du nombre de lignes indépendamment de leur longueur. 


— N contient les adresses à tester. #501 est la deuxième adresse de la 
zone programme, début de la première ligne. 


— Ligne 60050: À est chargé avec le numéro de la ligne (toujours situé 
aux adresses N+2 et N+3), et celui-ci est testé pour vérifier s'il n’est 
pas plus petit que la ligne de début demandée. 


— Si le numéro doit être modifié, c'est fait à la ligne 60070. Puis le 
nouveau numéro est incrémenté et on vérifie que la dernière ligne à 
modifier n'a pas été atteinte. 


— N prend la valeur de la première adresse de la ligne suivante, et on 
retourne au début de la boucle. 
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tout cela peut paraître très obscur, surtout si l’on n'est pas familiarisé avec 
l'organisation mémoire de l'ORIC. Pour mieux comprendre le principe de 
stockage des programmes en RAM, reportez-vous au paragraphe 2.3.1. 


SWAP <variable 1>,<variable 2> 


Application : Permet d'intervertir les deux variables données comme argu- 
ment. Instruction très utile pour les opérations de tri et de classement. 


Équivalent ORIC: Une variable intermédiaire (X) est indispensable pour 
effectuer l'opération, où A et B sont les variables à intervertir: 


X=A : A=B :B=X 


1.6.2. Fonctions 

Arrondi exact 

Nous savons que la fonction INT ne fournit pas un arrondi exact, puisqu'elle 
arrondit toujours à l’entier inférieur. Voici la formule permettant d'obtenir 


l'arrondi pour X, D étant le nombre de décimales souhaité: 


INT((Xx104D)+.5)/10tD 


Si on veut convertir le nombre en entier (D—O0), l'expression se réduit à 
INT(X+.5). 


Conversion degrés — radians 
Toutes les fonctions trigonométriques de l'ORIC utilisent des angles expri- 
més en radians. Comme on a souvent besoin de traiter des angles en 


degrés, voici la formule de conversion: 


XD=PI+XR/180 


Où XD est l'angle en degrés et XR l'angle en radians. 
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INPUTS(N) 


Application : Équivalent de l'instruction GET, avec la différence qu'au lieu 
d'un seul caractère, c'est une chaîne de N caractères qui est saisie au 
clavier. 


Équivalent ORIC: 
FOR 1-1 TO N:GETX$:NEXT I 


INSTR([N,]A$,B$) 


Application : Recherche la chaîne B$ à l’intérieur de A$, à partir de la posi- 
tion N. La valeur retournée est O si B$ n'est pas trouvé, ou la position du 
premier caractère de B$ dans AS. 


Équivalent ORIC: Un très court programme remplacera cette fonction 
indispensable, il pourra être incorporé comme sous-programme dans un 
ensemble plus important. 


60000 REM FONCTION INSTR 

60005 REM CHERCHE B$ DANS A$ A PARTIR DE I 
60007 REM 

60010 LA=LEN(AS) :LB=LEN(BS) :1F 1-0 THEN 1=1 
60020 IF I>LA THEN RETURN 

60030 FOR P=I TO LA 

60040 IF B$—-MIDS$(A$,P,LB) THEN RETURN 

60050 NEXT P :P-0 :RETURN 


A la sortie du sous-programme, P contiendra la position de B$ dans A$, ou 
0 si la recherche est négative. 


Division modulo 


Il s'agit du reste de la division entière entre deux nombres : (10 MOD 4)=2, 
(23 MOD 5)=3. Qui n'a pas pesté contre les calculatrices (et les ordina- 
teurs !) qui vous sortent toujours une ribambelle de décimales en résultat 
de la division la plus simple ? Voici la solution du problème (expression 
équivalente à (A MOD B): 


A—INT(A/B)+B 
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Division entière 


Complément naturel de la division modulo, l'équivalent de la division 
entière (symbole A\ B) est: 


INT(A/B) 


SPACES(N) et STRINGS(N,XS$) 


Application: STRING$ retourne une chaîne contenant N fois le premier 
caractère de X$. SPACES retourne une chaîne composée de N blancs. 


Équivalent ORIC : || suffit de déclarer en début de programme une chaîne 
(S$ par ex.), contenant un certain nombre de fois le caractère désiré. 
Ensuite, il suffira de faire LEFTS(SS$,N) pour obtenir le résultat souhaité. 


Exemple : 





100 PRINT LEFT$(S$,10) :’’RESULTATS’:LEFT$(S$,10) 
110 PRINT LEFT$(S$,29) 


Donnera : 


D RESUEFATS = 
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2 


L'organisation mémoire 
et les périphériques 


2.1. Généralités — Rappels 


Pour bien comprendre la manière dont ORIC manipule des informations, il 
est important de connaître à la fois le type de données qu'il utilise, leur 
mode de stockage en mémoire et la manière dont celle-ci est structurée. 
Revoyons rapidement quelques principes de base: 


— L'unité d'information la plus élémentaire est le BIT, qui ne peut 
prendre que deux valeurs : O et 1. Pour y gagner en vitesse et en effica- 
cité, ceux-ci sont regroupés en ‘mots’ de 8 bits, ou octets. 


— Un Octet peut prendre 256 (2%) valeurs différentes, de O à 255: il 
constitue l'unité de stockage pour toutes les informations transitant par 
la mémoire, ainsi que la plus petite unité accessible à l'utilisateur. 
Certaines données, comme le code d'un caractère par exemple, 
peuvent se stocker sur un seul octet mais pour des valeurs plus 
grandes que 255 deux octets ou plus sont nécessaires. 
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— Chacun des 8 Bits constituant l'octet ne peut valoir que O ou 1, mais 
chacun d'entre eux a un “poids” différent, principe illustré par le 
schéma suivant: 








Pour obtenir donc la valeur d'un octet, on multiplie le poids de chacun des 
bits le constituant par sa valeur (0 ou 1), et on additionne le tout: Si, par 
exemple, les Bits de ‘’ poids” 16, 8 et 1 sont à 1 et tous les autres à O, 
l'octet aura la valeur 16+8+1—25. On voit que grâce à cette méthode de 
codage, un octet peut donc prendre toutes les valeurs entières comprises 
entre O (tous les bits à O0) et 255 (tous les bits à 1). 


— Pour savoir où est rangée chaque information et y accéder rapidement, 
l'ordinateur utilise des Adresses : Chaque octet est accessible par son 
adresse, qui permet de le définir par rapport à ses voisins. Deux octets 
sont nécessaires si l'on veut stocker une adresse, leurs valeurs étant 
comprises entre O à 65535, donc supérieures à 255. Un des deux 
octets, dit ‘’de poids fort’ contiendra le quotient entier de la division 
<nombre à coder>/255, et l’autre octet dit ‘’ de poids faible” le reste 
de cette opération. Ces deux octets seront ensuite placés dans deux 
adresses consécutives, celui de poids faible en premier. Si l'on veut par 
exemple stocker le nombre 3560 aux adresses 1000 et 1001, il faudra 
placer la partie entière de la division 3560/256, donc 13 en 1001, et le 
reste (232) en 1000. L'instruction POKE permet de placer un octet à 
une adresse, et DOKE évite tout calcul en plaçant un nombre codé sur 
deux octets dans deux adresses consécutives, conformément à la règle 
exposée ci-dessus (octet de poids faible dans la première adresse). 


2.2. Le memory-map 


Examinons maintenant la figure 1, qui est un plan” de la mémoire vive, ou 
memory-map. On remarque que toutes les données indispensables au 
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Version 48K — Mode TEXT 





Jeu de caractères 
alternatif (graph) 







Jeu de caractères 
standard (ASCII) 





Contenu des 
chaînes 
TABLEAUX 
Numériques : valeurs 
Chaînes: pointeurs 











VARIABLES SIMPLES 
Numériques : valeurs 
Chaînes: pointeurs 








Adresses Entrées/sort. 







PILE 
POINTEURS SYSTEME 






VARIABLES SYSTEME 


#0000:Hexadécimal 
(0000) :Décimal 


<— AFFFF (65535) 


«— #C000 (49152) 
«— #BFE0 (49120) 
«— #BB80 (48000) 
en #26,#27 (621,622) 
«— #B800 (47104) 
«— #B400 (46080) 


«— HIMEM 
en #A6,#A7 (166,167) 


«— en #A0,#A1 (160,161) 


«— en #9E,#9F (158,159) 


— en #9C,#9D (156,157) 


«— en #9A,#9B (154,155) 
«— #500 (1280) 
en #B0,#B1 (176,177) 


+— 4400 (1024) 
«— 4300 (768) 


«— #200 (512) 
«— #100 (256) 


— 0 
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2.3. 


fonctionnement de l'ORIC y sont présentes : ROM contenant l'interpréteur 
Basic, écran, jeux de caractères, programmes éventuels etc. La mémoire 
pourrait être comparée à un livre, divisé en chapitres et sous-chapitres, 
d'inégale importance et traitant de sujets différents. Chacun d'eux n'est 
susceptible de contenir qu'un type précis d'information. Quant à la zone 
située en bas de mémoire, entre les adresses 0 et 4500, elle représente le 
“sommaire” du livre (et un peu plus heureusement !): Tous les octets 
situés entre ces deux valeurs constituent des ‘’emplacements réservés”, 
où sont stockées toutes les données susceptibles de varier en cours de 
fonctionnement. 


Car en effet, si sur le papier, les différentes parties de la mémoire semblent 
posséder des limites fixes, en réalité il n’en est rien. Certaines d'entre elles 
le sont bien sûr, comme celle contenant les variables système ou la ROM; 
mais la plupart (celles séparées par des tirets) voient leur taille varier cons- 
tamment, fluctuant au gré des besoins. Cela paraît évident pour la zone 
programme par exemple, dont la taille sera bien sûr fonction de l'impor- 
tance de celui-ci. Pour connaître à tout moment la position de ces adresses 
variables, ORIC stocke constamment leur valeur dans d'autres adresses, 
qui elles sont fixes; ces dernières sont appelées les pointeurs. 


Sur le memory-map, les adresses fixes sont marquées en gras, et les 
nombres écrits normalement renvoient au pointeur contenant l'adresse 
considérée. 


Les différentes zones-mémoire 


Dans ce chapitre sera donnée en détail la fonction de chaque partie spécia- 
lisée de la mémoire, la manière dont les différentes données qui la concer- 
nent y sont stockées ainsi que la liste des pointeurs ou variables-système 
s'y trouvant ou s'y référant. 


REMARQUE: 


— A la mise sous tension, toute la mémoire “utilisateur”, c'est-à-dire la 
zone comprise entre #400 et HIMEM est remplie du caractère “U" 
(ASCII 85). Ne vous étonnez donc pas de rencontrer souvent 85 si vous 
faites des PEEK dans cette zone, ou 21845 (85+85%256) si vous utili- 
sez DEEK. 
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— Lorsqu'une seule adresse est donnée, c'est que son contenu est un 
nombre inférieur à 255, lu par PEEK et modifié par POKE. Dans le cas 
de deux adresses consécutives servant elles-mêmes à stocker une 
adresse, DEEK et DOKE seront bien entendu utilisés. 


2.3.1. Les pointeurs-systèmes 0- FF (0-255) 


C'est là que l'on peut trouver tous les pointeurs renseignant sur les limites 
des zones programme et variables; leur lecture ou modification par le 
programmeur peut servir simplement à connaître l'espace occupé par un 
programme, ou aller jusqu'à l'effacement sélectif des variables. 


#9À,#9B (154,155) 


Fonction: Adresse du premier octet du programme, normalement initia- 
lisée à 1281. 


Utilisation: Habituellement employée en conjonction avec l'adresse 
suivante, pour connaître le nombre exact d'octets occupés par un 
programme, hors variables. 


REMARQUE: Cette adresse peut être déplacée, si par exemple vous désirez 
faire commencer votre programme plus loin. Mais n'oubliez pas de donner 
la valeur choisie +2 aux pointeurs suivants (#9C, #9E, AO), sinon des 
choses étranges se produiront lorsque vous taperez le programme ou 
entrerez les variables ! 


#9C,#9D (156,157) 


Fonction: Fin de la zone programme, initialisée à 1283 à la mise sous 
tension. 


Utilisation: DEEK(#9C)—-DEEK(#9A) retournera l'espace mémoire, en 
octets, occupé par le programme résident. 


REMARQUE: Lors du chargement d'une zone-mémoire par CLOAD 
A<adresse début>, E<adresse fin>, #9C prend la valeur de <adresse fin>. 
Concrètement, cela veut dire que si par exemple vous chargez un jeu de 
caractères, ORIC considérera après le chargement que le programme se 
termine à l'adresse 47999, où se termine le jeu ! Si ensuite vous tentez de 


37 


faire tourner le programme, vous vous retrouverez évidemment avec une 
"OUT OF MEMORY ERROR". Le moyen de contourner ces difficultés, et 
d'utiliser les commandes CSAVE et CLOAD pour les zones-mémoire, est 
expliqué au 8 2.4.2. 


Comment ORIC mémorise les lignes de programme : 


Pour bien illustrer le principe de stockage des lignes, tapons au clavier ce 
petit programme: 


10 REM DEMO 
20 AB—10:C$—""XXX 
30 PRINT AB;C$ 


Maintenant, entrer en mode direct: 


FOR N=1280 TO DEEK(#9C) :PRINT N;PEEK(N);""#""; :NEXT 


Et les adresses comprises entre 1280 et 1324 s'afficheront à l'écran, 
chacune suivie de son contenu. Examinons celui-ci: 
— 1280: 0, indique le début de la première ligne. 


— 1281,1282: Ces deux adresses contiennent 12 et 5, qui donnent 
12+5x256—1292. Il s'agit en fait de l'adresse de début de la ligne 
suivante. 


— 1283,1284: Codent le numéro de la ligne, ici 10. 


La suite représente le contenu de la ligne proprement dit: 

— 1285: 157 est le code de l'instruction REM. 

— 1286-1290: Un espace (32), suivi des codes des 4 lettres D, E, M et O. 

— 1291: La deuxième ligne commence par CO. 

— 1292,1293: C'est là que renvoie le début de la ligne précédente 
(1281,1282). Cette fois-ci, on trouve les valeurs 31 et 5 donnant 
1311, début de la troisième ligne. 

— 1294,1295: N° de ligne (20). 

— 1296-1309: On trouve ensuite tous les codes des caractères contenus 
dans la ligne. Remarquons aux adresses 1298 et 1304 que le signe 
=" n'est pas représenté par son code ASCII qui est 61, mais par son 
code d'opérateur (212). 


— 1310: Début de la troisième ligne (0). 
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De 


1311-1312: Les valeurs 43 et 5 donnant 1323 fournissent l'adresse 
où commencerait la quatrième ligne de programme, si celle-ci existait. 
De cette manière, si vous ajoutez une ligne son adresse de début sera 
déjà stockée au début de la précédente. 


1313-1314: N° de ligne (30). 


1315-1321: Code de l'instruction PRINT (186), suivi des codes de 
tous les caractères composant la ligne. 


1322 : Début de la quatrième ligne (0). 


1323-1324: Les deux octets sont mis à O, indiquant la fin du 
programme. 


tout ce qui précède, on retiendra trois faits importants: 


Chaque instruction, fonction ou opérateur possède son propre code, 
valeur entière comprise entre 129 et 255 inclus; ce code est unique- 
ment utilisé dans le stockage des lignes de programme en mémoire. 


Chaque ligne commence par 0, puis deux adresses codant l'adresse de 
début de la ligne suivante. C'est cette particularité qui a été utilisée 
dans le programme RENUM (cf. 8 1.6), où le programme est renumé- 
roté en sautant directement aux adresses contenant le N° de ligne. 
D'autre part, et ce quel que soit le programme en mémoire et sa 
longueur, les adresses 1281 et 1282 (début de la zone) contiendront 
une valeur nécessairement différente de 0. Si on leur donne cette 
valeur en tapant DOKE 1281,0 cela équivaut à faire un NEW, puisque 
l'ordinateur considérera qu'il n'y a plus aucune ligne de programme 
après cette adresse. La différence avec NEW est que le programme est 
toujours présent en mémoire, et peut donc être récupéré. (Voir adresse 
#BO, ci-après). 


#9E,#9F (158,159) 
Fonction: Fin de la zone des variables simples, initialisée à 1283. 


Utilisation : Le début de la zone contenant les variables coïncide avec la fin 
du programme (#9C), et ne nécessite donc pas de pointeur spécial. Si on 
élimine la zone des variables en tapant DOKE #9E,DEEK(#9C), on obtien- 
dra le même effet qu'avec CLEAR mais en conservant les tableaux. 


Mode de stockage des variables simples 


Celles-ci sont rangées en commençant par les adresses les plus basses 
vers les plus hautes. 
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Les variables en virgule flottante commencent par deux octets contenant le 
code des deux caractères du nom, puis cinq octets représentant leur valeur. 
Total occupé: Sept octets. 


Pour /es variables entières, les deux adresses du nom contiennent le code 
des caractères correspondants plus 128, et la valeur ne nécessite que deux 
octets puisqu'elle sera comprise entre —-32768 et +32767. 


Exemple : Soit AB%, dont la valeur est 3500. Elle sera codée sur quatre 
octets qui seront: 


193 Code de A (65) plus 128 

194 Code de B (66) plus 128 

172 Reste de la division entière 3500/256 
13 Quotient entier de 3500/256 


Pour les variables de chaîne, les choses se compliquent quelque peu, car 
les adresses les concernant ne constituent que des pointeurs, renvoyant à 
une autre zone où leur contenu se trouve physiquement: 


— Le premier octet est le code du 1°" caractère du nom. 
— Le deuxième octet est le code du 2° caractère plus 128. 


— L'octet suivant contient la longueur de la chaîne, en nombre de carac- 
tères (ce qui explique pourquoi les chaînes ne dépassent jamais 255 
caractères !). 


— Les deux octets suivants codent l'adresse où commencent les données 
de la chaîne, qui peuvent en fait se trouver n'importe ou dans la zone 
"contenu des chaînes”. Cette adresse combinée avec l'octet précédent 
donnant la longueur permettent donc de retrouver toujours avec préci- 
sion ce contenu. 


— Enfin, deux octets toujours à O. 


Donc, une chaîne occupera en mémoire un espace égal à sa longueur plus 
sept octets de pointeurs. 


#A0,#A1 (160,161) 


Fonction: Contient l'adresse de fin de la zone des tableaux. (Initialisée à 
1283 à la mise sous tension). 


Utilisation: Cette partie de la mémoire, qui commence là où se termine 
celle des variables simples, est réservée d'une part aux tableaux numé- 
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riques et d'autre part aux pointeurs permettant de retrouver les données 
des tableaux de chaînes. 


Stockage des tableaux numériques 


Espace occupé Données 





2 Octets Codes des caractères du nom, ou codes plus 128 
(tableaux d'entiers). 


2 Nombre d'octets occupés par le tableau. 


Nombre de dimensions du tableau (D), déduit de l’instruc- 
tion DIM le concernant. 


2*D  Octets Nombre d'éléments par dimension (E), également fourni 
dans DIM. 
5+D+E Octets Valeur de chaque élément du tableau, pour un tableau en 


virgule flottante, ou bien 
2+D+E Octets Valeur de chaque élément, pour un tableau d'entiers. 


Nous voyons dans ce qui précède que les tableaux en virgule flottante sont 
très ‘gourmands’ en mémoire, puisqu'ils occupent un nombre d'octets 
égal à 5+2»<nombre dimensions>+5#<nombre d'éléments/dim.> 
*<nombre dimensions>. Ainsi, un tableau déclaré par DIM A(10,10) ne 
prendra pas moins de 525 octets, même si tous les éléments ne sont pas 
utilisés. 


Stockage des pointeurs de tableaux de chaînes 


Espace occupé Données 


2  Octets Nom du tableau, même que pour les chaînes simples 


(code du premier car. et code du deuxième car. plus 128). 





2  Octets Espace total pris par les pointeurs. 

1  Octet Nombre de dimensions du tableau (D). 

2*D Octets Nombre de caractères par dimension. 

3+D Octets Pointeurs permettant de retrouver toutes les chaînes du 


tableau, rangées dans la zone ‘Contenu des chaînes”. 
— Le 1°" octet donne la longueur de la chaîne, 
— Les deux autres, son adresse de début. 


41 


Redimensionner un tableau 


Contrairement à d'autres machines, ORIC n'accepte pas de redimensionner 
(ou effacer) un tableau toute tentative se soldant par un ‘ REDIM'D ARRAY 
ERROR”’. Il existe cependant un moyen simple de le faire, si on peut accep- 
ter que tous les tableaux (numériques et chaînes) soient effacés en même 
temps, les variables simples n'étant pas touchées: Il suffit de faire coïnci- 
der les pointeurs de début (#9E,#9F) et de fin (#A0,4#A1) de la zone 
"tableaux": 


DOKE # A0,DEEK(#9E) 


Vous pouvez ensuite redéclarer les tableaux de votre choix par DIM sans 
aucun problème. 


#A2,#A3 (162,163) 


Fonction : Donne l'adresse la plus basse atteinte dans la zone ‘contenu des 
chaînes”. 


Utilisation: DEEK(#A2)-DEEK(#A6) fournit l'espace occupé par les 
chaînes de caractères. DEEK(#A2)—-DEEK(#AO) donnera l'espace demeu- 
rant réellement disponible (équivalent à FRE(O). 


REMARQUE: Les chaînes sont rangées dans la zone située entre HIMEM 
(voir ce pointeur) et le haut de la section ‘’tableaux”’ (codée en #A0,#A1) 
dans l'ordre de leur arrivée du haut vers le bas, c'est-à-dire en débutant 
juste au-dessous de HIMEM. C'est l'adresse atteinte par ce remplissage à 
un moment donné que nous fournissent #A2,#A3. Les zones 
“programme”, “variables” et ‘pointeurs de chaînes”, par contre, s'éten- 
dent du bas vers le haut au fur et à mesure des nouvelles entrées. C'est la 
zone libre entre les deux adresses qui permet la création de nouvelles 
variables dans un programme ; une fois celle-ci remplie, le message ‘ OUT 
OF MEMORY ERROR" est envoyé. 


#A4,#A5 (164,165) 


Fonction: Contient l'adresse où commence le stockage des caractères de la 
dernière chaîne entrée. 


Utilisation: La lecture des adresses situées entre DEEK(#A4) et 
DEEK(#A2) retournera la totalité des caractères composant la dernière 
chaîne mémorisée, même si ses pointeurs ont été détruits. 
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HIMEM #A6,4A7 (166,167) 


Fonction : Définit à la fois l'adresse la plus haute accessible par le Basic, et 
le début de la zone de stockage du contenu des chaînes de caractères. 
(Chaînes simples et tableaux). 


Utilisation: Cette adresse est la seule de la mémoire directement acces- 
sible par une instruction, c'est dire son importance. En fait, toute la 
mémoire au-delà de la valeur spécifiée ne sera plus affectée ni par NEW, ni 
par CLEAR et sera donc tout indiquée pour l'écriture de routines en 
langage-machine. Seul un RESET remettra tout à zéro et rétablira les 
limites normales. 


REMARQUE : Comme nous l'avons mentionné dans le paragraphe traitant de 
HIMEM (8 1.4), l'adresse chargée dans #A6,#A7 à la mise sous tension 
est erronée. Tapez HIMEM#97FF pour rétablir la valeur correcte, surtout si 
votre programme utilise de nombreuses chaînes. 


#B0,#B1 (176,177) 


Fonction: Adresse la plus basse accessible par le Basic, ou LOMEM , initia- 
lisée à 1280. 


Utilisation : Tout ce qui est situé en dessous de l'adresse contenue dans 
#B0,#B1 n'est affecté par aucune commande Basic, comme NEW ou 
CLEAR. 


#B8,/B9 (184,185) 


Fonction: Adresse de la dernière variable entrée (valeur pour un nombre, et 
pointeurs pour une chaîne). 


Avant de passer à la suite il faut bien comprendre que tous les pointeurs 
que nous venons d'examiner sont manipulés par l'ordinateur pour toutes 
les opérations ‘’ globales” sur la mémoire. En effet, tout effacement par 
exemple est obtenu par simple modification des pointeurs définissant la 
partie à effacer; rien n'empêche le lecteur d'en faire autant en se servant 
des indications fournies et d'un peu de bon sens. 


43 


Exemples : 
Emulation de l'instruction NEW 


Nous avons vu plus haut que chaque ligne de programme commençait par 
l'adresse de la ligne suivante, et que la fin du programme est indiquée par 
la mise à zéro des octets réservés à cet usage. Il suffit donc de mettre à O 
les deux premiers octets du programme, qui devraient normalement conte- 
nir l'adresse de la deuxième ligne, pour ‘’effacer”’ celui-ci: 


DOKE DEEK(# 9A),0 ou plus simplement 
DOKE 1281,0 


Récupérer un programme détruit par NEW 


Dans la mesure où cette instruction agit précisément comme décrit dans 
l'exemple précédent, voici la marche à suivre: 


— Placer le début de la zone variables au-delà de la fin estimée de votre 
programme, par ex. DOKE #9C,1280+5000 si celui-ci fait environ 
4 Koctets. 


— Lister à l'écran les octets correspondant à la première ligne de 
programme, en comptant large (un octet par caractère, étant donné 
qu'une commande n'en occupe qu'un): 


FOR N=—1281 TO 1281+< Nombre de car.> :? N;PEEK(N);"" ’’:NEXT 


— En excluant 1281,1282 qui sont de toutes façons à O et 1283,84 qui 
représentent le numéro de ligne, repérer le premier octet ayant la 
valeur O; il indique le début de la deuxième ligne du programme. 


— Charger l'adresse suivant cet octet dans 1281,82 en tapant DOKE 
1281,<adresse trouvée>: Votre programme est miraculeusement 
revenu. À présent, empressez-vous de le sauvegarder car tous les 
autres pointeurs (ceux des variables notamment) ont également été 
déplacés par NEW, et il serait malsain de continuer sur de telles bases! 


2.3.2. La pile # 100- #1FF (256-511) 


Utilisée pour la sauvegarde des résultats intermédiaires de calculs, la pile 
sert aussi au stockage des adresses de retour pour les GOSUB, REPEAT et 
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autres FOR-NEXT. En effet, lorsque par exemple un GOSUB est rencontré, 
l'adresse de début de la ligne suivante ou ‘adresse de retour” est immé- 
diatement placée dans la pile; le programme saura ainsi où reprendre 
quand il arrivera à un RETURN, moment où l'adresse désormais inutile est 
extraite de la pile. En cas de GOSUB multiples ou de boucles FOR-NEXT 
imbriquées, les adresses de retour sont ‘’empilées” les unes sur les autres, 
et extraites de telle sorte que la dernière arrivée est toujours la première à 
ressortir. La taille de la pile n'étant pas infinie, on comprend mieux pour- 
quoi on n'a droit qu'à un nombre donné de boucles ou GOSUB imbriqués. 


Exemple : 

Pile Programme correspondant 
100 GOSUB 200 
110 … 
200 GOSUB 300 

210 210 … 
220 RETURN 

110 ; 
300 REM 
310 RETURN 


Lorsque la ligne 100 est exécutée, l'adresse de retour (110) est placée 
dans la pile. A la ligne 200, c'est au tour de 210 d'y entrer. Ainsi, à 
l'exécution du RETURN de la ligne 310 on retournera bien en 210, puis 
ensuite en 110. 


2.3.3. Les variables-système # 200-#2FF (512-767) 


Véritable tableau de bord et de commandes interne de l'ordinateur, les 
variables-système sont de loin la zone la plus intéressante à explorer pour 
le programmeur, par la variété des interventions qu'elles autorisent par 
rapport au Basic, sur l'affichage et le clavier en particulier. 


Avant d'aborder les plus importantes d'entre elles, rappelons que les 
variables-système mémorisent des données aussi diverses que la taille de 
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l'écran, le code de la dernière touche enfoncée ou le mode et la position 
du curseur. On peut toujours se renseigner sur la valeur en cours, mais la 
plupart du temps on peut également modifier celle-ci avec l'instruction 
POKE et c'est bien entendu cette dernière caractéristique la plus 
intéressante. 


Les diverses variables seront regroupées en celles concernant l'écran et 
celles concernant le clavier plutôt que par ordre croissant, autorisant ainsi 
une consultation aisée. 


Le clavier 


#208 (520) 
Fonction: Contient le code de la touche frappée au clavier. 


Utilisation: La lecture de cette variable par PEEK fournit une alternative 
intéressante à la fonction KEY$, dans tous les cas où la détection rapide de 
l'appui sur une touche est primordiale (jeux en temps réel). 


#209 (521) 


Fonction: Prend la valeur 162 si la touche CTRL est appuyée, et 167 s'il 
s'agit de SHIFT. Pour toute autre touche du clavier, a la valeur 56. (Bits 3, 
4 et 5 à 1 et tous les autres à O). 


Utilisation: La lecture de cette adresse est le seul moyen de détecter 
l'usage des touches SHIFT et CTRL, sans être tenu de tester le caractère 
généré. 


#20C (524) 


Fonction: Prend la valeur 127 en mode minuscules, et 255 en mode 
‘blocage majuscules”. 


Utilisation : Très utile pour forcer le clavier dans le mode désiré sans tenir 
compte de son état présent, contrairement à CTRL T qui agit en bascule. 


#20E (526) 


Fonction : Décompte le temps d'appui sur une touche, et déclenche l'auto- 
répétition le cas échéant. 


Utilisation Au repos (aucune touche actionnée), l'octet a la valeur 32 (Bit 5 
à 1). Si une touche est pressée : 
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— L'octet est décrémenté d'une unité à chaque scanning clavier; 


— Lorsque la valeur 1 est atteinte, l’autorepeat est déclenché. Tant que 
celui-ci dure, seuls le Bits O, 1 et 3 pourront être à 1. 


Concrètement, cela signifie qu'il est aisé de détecter l'appui sur une touche 
(octet<32), ainsi que la mise en route de l’autorepeat (octet<5). On peut 
aussi forcer la répétition dès qu'une touche est actionnée: 


Exemple : 


10 X$=KEY$ 
20 POKE 526,1 :PRINT X$; 
30 GOTO 10 


— Pour toute autre valeur que 1 donnée comme argument à POKE 526, 
la répétition est bloquée. 


— On peut ralentir la vitesse à volonté en insérant une instruction WAIÏT N 
avant GOTO 10, avec 1<N<15. 


#306,7307 (774,775) 


Fonction: Détermine la vitesse d'autorépétition du clavier ainsi que celle de 
clignotement du curseur. 


Utilisation : I faut bien comprendre que ces deux adresses ne stockent pas 
des données fugitives comme #20E, mais une valeur qui est prise en 
compte tant qu'elle n'est pas modifiée par le programmeur ou réinitialisée 
par RESET. La valeur normale est de 10000 sur les deux adresses, mais 
#306 étant l'octet de poids faible il pourra être ignoré en pratique, pour 
n'agir que sur #307. Sa valeur normale est alors de 39, valeur qu'il faudra 
diminuer (jusqu'à 10 environ) pour accélérer, et augmenter pour ralentir la 
vitesse de répétition. 


L'Écran 

Note : Les applications de toutes les adresses décrites dans cette rubrique 
sont développées en détail dans la troisième partie concernant l'écran. 
#12,#13 (18,19) 


Fonction: Contient l'adresse de début de la ligne courante (ligne où se 
trouve le curseur), dans la partie de la mémoire concernant le contenu de 
l'écran. 
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Utilisation : Du fait qu'il n'existe aucune fonction renseignant sur la position 
du curseur à l'écran, DEEK(#12) nous fournira la ligne où celui-ci se trouve 
en mémoire, comme PEEK(61 6) retourne la ligne du curseur à l'écran (cf. 
cette adresse, ci-après). 


#268 (616) 
Fonction: Retourne la ligne où se trouve le curseur à l'écran, de 1 à 27. 


Utilisation: Cette adresse très importante autorise l'adressage vertical 
curseur, et un adressage complet en conjonction avec #269 (voir ci- 
dessous). Le placement du curseur n'est effectif qu'après un PRINT, il faut 
donc donner le numéro de ligne désiré —1 car PRINT provoque un saut de 
ligne: Pour plus de détails sur tous les modes possibles de déplacement du 
curseur voir paragraphe 3.5.2. 


Exemples: Pour bien comprendre le fonctionnement de POKE 616, 
essayez les deux lignes suivantes en mode direct, après avoir mis le curseur 
vers le milieu de l'écran à l’aide des flèches: 


POKE 616,0:2''A'':2"'B’’ et 
POKE 616,0:2:2"’A'';'"B" 


#269 (617) 


Fonction: Contient le numéro de la colonne où se trouve le curseur, de O à 
39. 


Utilisation : Comme l'adresse précédente, place aussi le curseur à l'écran 
mais horizontalement. Cette fois-ci, le positionnement est immédiatement 
pris en compte et POKE 617,<colonne> procure une alternative efficace à 
la fonction TAB, qui comme nous l'avons vu est quelque peu défaillante. 
Évidemment, l'essai en mode direct ne donnera aucun résultat puisque le 
curseur passe à la ligne suivante, colonne O une fois la commande 
exécutée. Pour voir son effet, il faut essayer une ligne du 
type 617,20 :?7"XXXX". 


#26A (618) 


Fonction: Contient toutes les données relatives au mode curseur, corres- 
pondant à certains codes CTRL du clavier. Voici celles qui ont pu être 
déterminées : 
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CTRL Fonction 


Curseur invisible 
Curseur visible 


1 0 















Blocage de l'affichage 
Déblocage de l'affichage 








Rappel sonore au clavier 
Clavier muet 



















Affichage en 38 colonnes 
Affichage en 40 colonnes 





Affichage en simple hauteur 
Affichage en double hauteur 


Utilisation: Tous les codes CTRL ayant des effets équivalents à ce qu'on 
peut obtenir avec POKE 618 agissent comme des bascules, il est donc sou- 
vent intéressant de pouvoir ‘forcer’ tel ou tel mode indépendamment du 
mode où l'on se trouve. A la mise sous tension #26A a la valeur 3, qui cor- 
respond bien à un curseur visible et clavier sonore. Voir aussi codage d'un 
octet, 8 2.1. 


REMARQUE : Le codage représenté dans le tableau est un codage “bit à 
bit”, chaque bit de l’octet présent à l'adresse 618 étant suivant sa valeur (0 
ou 1) associé à un mode curseur.” 1” est le bit de poids faible, et 128 celui 
de poids fort. 
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Exemple : POKE 618,74 démarre la double hauteur (64), rend le clavier 
muet (8), et garde l'affichage actif (2): 64+8+2-74. Le curseur disparaît 
(Bit de poids 1 à O, d'une manière générale toutes les valeurs impaires sont 
‘curseur visible ”). 


Les codes CTRL sont traités in extenso au paragraphe 3.2.1. 


#26B et 7260 (619-620) 


Fonction: Contiennent respectivement l'attribut du fond et de l'affichage, 
pour tout l'écran. 619 contient l'octet placé dans toute la première colonne 
de l'écran, et 620 celui de la deuxième. Leur valeurs normales sont respec- 
tivement 23 et O. 


REMARQUE : L'effet de l’attribut donné à 619 ou 620 n'est visible qu'après 
un effacement de l'écran, avec CTRL L ou CLS. 


Utilisation: Lorsqu'il s'agit de couleurs, PAPER et INK sont bien plus 
commodes, mais en pokant dans ces adresses on peut aussi bien faire 
clignoter l'écran, ou passer en caractères géants. (Voir aussi 8 3.6.2.). 
Exemple : 


POKE 618,67 :POKE 619,10 :INK 7 :CLS 


#26D,26E (621,622) 


Fonction: Spécifie la première ligne de l'écran accessible au curseur. La 
valeur normale est de 48000, laissant la ligne O inaccessible. 


Utilisation: Grâce à ces deux adresses ainsi qu'à la suivante (voir ci- 
dessous), l'utilisateur peut définir quelle taille aura l'écran, et même la 
changer instantanément. La ligne s'obtient par 47960+<ligne>#40. 


Exemple : Pour “récupérer” la ligne O, taper DOKE # 26D,47960. 


#26F (623) 


Fonction: Spécifie la dernière ligne de l'écran accessible au curseur, la 
valeur normale étant 27. 


Utilisation: Adresse complémentaire des deux précédentes, elle permet 
d'interdire à l'affichage un nombre de lignes quelconque en bas d'écran. Le 
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scrolling intervient sur la nouvelle ligne fixée, comme s'il s'agissait réelle- 
ment de la dernière. 


Exemple : Éteindre et rallumer l'ORIC, puis taper: 


POKE 623,10:FOR N=1 TO 10:2?:NEXT 


#2C0 (704) 
Fonction: Prend la valeur 2 en mode TEXT et 3 en HIRES. 


Utilisation: C'est cette variable qui détermine le rejet des commandes 
graphiques en mode texte, le fait de lui donner la valeur 3 permet de dessi- 
ner à partir de ce mode sans voir l'écran haute-résolution. 


2.3.4. Les autres zones de la mémoire 


#300-Z3FF (768-1023) 


Dans cette section sont situés tous les pointeurs utilisés par le système 
d'exploitation de cassettes (SEC) et par l'interface parallèle de l'imprimante 
dont les fonctions sont passées en revue au paragraphe 2.4.1. ainsi que 
pour les communications internes dans le détail desquelles nous n’entre- 
rons pas. 


#400-#AFF (1024-1279) 


Cette zone est laissée libre, permettant à l'utilisateur de stocker ses propres 
routines en langage-machine, ou toutes sortes de données que l'on veut 
rendre inaccessibles à NEW, RUN ou CLEAR. Ces adresses sont fréquem- 
ment employées dans les programmes qui suivent. 


La mémoire utilisateur 


#500-ZB3FF (1280-46080) 


Il s'agit d'une section qui totalise quelque 44 Koctets exploitables regrou- 
pant programmes et données, et dont seules les deux limites extrêmes sont 
fixes, les autres étant gérées par les pointeurs qui ont été traités au para- 
graphe 2.1.1. 
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2.4 


Les jeux de caractères et l'écran 


#B400-ZBFEO (46080-49120) 


La zone située entre #B400 et #BB7F regroupe le dessin de tous les 
caractères utilisés par ORIC, chaque caractère étant codé sur 8 octets 
(8x8—64 points/car.). Ceux-ci, ainsi que la manière de les modifier, sont 
vus au paragraphe 3.7. Il en va de même pour la mémoire de l'écran texte, 
où chaque octet représente une position d'affichage et située entre #BB80 
et ÆBFEO, examinée au paragraphe 3.1. 


La ROM (mémoire morte) 


Suivent une trentaine d'octets également disponibles pour le programmeur 
situés entre Æ#BFEO et ÆBFFF, et nous arrivons à la ROM. Ou plutôt, serait- 
il plus correct de dire “l’image de la ROM en RAM”, car en effet cette 
dernière, tout comme les jeux de caractères et toutes les variables situées 
entre O et 500 est recopiée en RAM lors de la mise sous tension, laissant 
ainsi le champ libre pour d'éventuelles modifications. Ces dernières (sur les 
jeux de caractères notamment) demeureront effectives jusqu'à l'extinction 
de la machine ou un RESET. 


Simulation de RESET par programme 


Deux routines de la ROM, appelées par CALL<adresse> permettent 
d'obtenir ce résultat: 


#F84A (63562): Effectue un RESET total, avec remise de toute la mémoire à 
l'état initial et perte du programme et des variables. Le logo 
Tangerine est affiché en fin d'opération, comme à la mise sous 
tension. 


#F882 (63618): Équivalent de RESET, remet la mémoire à l'état initial sans 
perte des variables et du programme et sans affichage du logo. 


La gestion des périphériques 


Les quatre périphériques actuellement gérés par l'ORIC sont le clavier, 
l'écran, l'interface parallèle imprimante et le magnétophone K7. Les diffé- 
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rentes Variables et instructions concernant le clavier ayant été vues plus 
haut et la troisième partie étant entièrement consacrée à l'écran, nous trai- 
terons ici de l'imprimante et du K7. 


2.4.1. L’imprimante 


L'interface disponible sur l'ORIC est du type Centronics parallèle, autori- 
sant la connexion directe à un large éventail d'imprimantes sans adaptation 
particulière. Deux instructions du Basic sont fournies pour son exploitation. 


LPRINT, qui agit de la même manière que PRINT en permettant l'envoi de tous 
les caractères ASCII vers l'imprimante, y compris les caractères de 
contrôle de cette dernière grâce à LPRINT CHRS(N), N étant compris 
entre O et 31. 


LLIST, qui listera le programme sur l'imprimante et dont la syntaxe est iden- 
tique à celle de LIST. 


Remarquons que sur une certaine quantité de données imprimées, on voit 
souvent apparaître un caractère parasite qui a le code 127. Sur certaines 
imprimantes cela correspond à DEL, et provoque la suppression d'un carac- 
tère alors que sur d'autres il s'agit du caractère ”. Ceci est provoqué par une 
interférence entre la lecture très rapide (scanning) du clavier, et l'interface 
parallèle. Il y a heureusement un moyen d'éviter ce problème, aussi bien 
lors de l'impression de données avec LPRINT que lors de l'impression de 
programmes avec LLIST: La lecture du clavier est désactivée par 
CALL#EDO1, et réactivée avec CALL#E804. 


Attention : Une fois la première routine appelée le clavier reste évidemment 
bloqué, il faut donc entrer un ligne complète du type 
CALL#ED01:LLIST:CALL#E804 en mode direct. En tout état de cause, un 
RESET vous rendra également la main. 


Soulignons enfin que toutes les fonctions utilisables avec PRINT le sont 
aussi avec LPRINT, y compris celles concernant le placement horizontal du 
curseur telles que TAB ou SPC. 


Pour des applications plus complexes utilisant l'imprimante, voir aussi 
paragraphe 3.4.1 (hardcopy texte) et paragraphe 4.4 (hardcopy graphique). 
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Transfert de zones-mémoire sur l'imprimante 


Le programme qui suit listera sur l'imprimante toutes les adresses situées 
entre des limites fixées par vous, suivies de leur contenu, et avec la meil- 
leure présentation possible (Dump mémoire). 


10 REM DUMPS MEM 

12 REM 

20 CLS:2?:2"DUMPS MEMOIRE SUR IMPRIMANTE’ :2?:? 

30 INPUT''ADRESSE DEBUT,ADRESSE FIN’’;AD,AF 

40 A—10—LEN(STR$(AF)) 

50 ? :INPUT'’DESCRIPTIF DE LA ZONE” ;:M$ 

60 LPRINT''ORICT —— DUMP ZONE "M$" ""HEX$(AD)''"—'""HEXS$(AF) 
70 LPRINT :LPRINT :LPRINT CHR$(27)''N''CHR$(3):CALL  ED01 
100 FOR N=AD TO AF STEP 6 

110 A$—STR$(PEEK(N)) :LPRINT N''='"A$SPC(A—LEN(AS$)) ; 

120 A$=STR$(PEEK(N+1)) :LPRINT N+1/='""A$SPC(A-LEN(AS)) ; 
130 A$=STR$(PEEK(N+2)) :LPRINT N+2’='"A$SPC(A—LEN(AS)) ; 
140 A$=STR$(PEEK(N+3)) :LPRINT N+3/='""A$SPC(A-LEN(AS$)) ; 
150 A$—STR$(PEEK(N+4)) :LPRINT N+4/='""A$SPC(A-LEN(AS$)) ; 
160 A$=STR$(PEEK(N+5)) :LRPINT N+5’—/"A$SPC(A-—LEN(AS)) ; 
200 NEXT :CALL#E804 


Explications : 


— AD est l'adresse de début, AF l'adresse de fin: A$ est une chaîne 
formattée (4 caractères), contenant l'octet à imprimer: Tous les 
nombres sont ainsi alignés en colonnes. 


— La ligne 70 est spécifique EPSON : ESC"N""+CHR$(X) saute X espaces 
à la fin de chaque page, évitant ainsi d'écrire sur les pointillés. Rempla- 
cez cette séquence par celle remplissant la même fonction sur votre 
imprimante, ou mettez simplement trois LPRINT. 


2.4.2. Le magnétophone à cassettes 


Celui-ci est géré par deux instructions Basic, CSAVE et CLOAD, dont les 
applications sont beaucoup plus nombreuses qu'il ne peut y paraître à 
première vue. Leur utilisation normale pour la sauvegarde et lecture de 
programmes étant traitée au paragraphe 1.4, nous nous intéresserons plus 
particulièrement à la sauvegarde de zones-mémoire et de tableaux de 
variables. 
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CSAVE 


Syntaxe : CSAVE"<Nom>",A<adresse début>,E<adresse fin>{[,S] 
[AUTO] 


Fonction: Sauvegarde toute la zone-mémoire comprise entre <adresse 
début> et <adresse fin>, ces deux dernières y compris. 


Utilisation: Celle-ci n'appelle pas de commentaires particuliers, en dehors 
du fait que l'option AUTO ne devrait être utilisée que si la zone sauve- 
gardée contient une routine exécutable en langage-machire. S demande la 
sauvegarde lente (300 baud), l'omission impliquant une sauvegarde rapide 
(2400 baud). Précisons aussi que <adresse début> et <adresse fin> 
peuvent être des constantes décimales ou hexadécimales des variables ou 
des expressions numériques. 


CLOAD 
Syntaxe: CLOAD [”’<<Nom”>]|,A<adresse début>,E<adresse fin>[,S] 


Fonction: Recharge la zone-mémoire portant le nom spécifié, ou la 
première rencontrée si celui-ci est omis. 


Utilisation: Elle appelle nettement plus de commentaires que CSAVE, dans 
l'ordre : 


e Les valeurs données comme arguments de A et E importent peu, la zone 
considérée étant de toute manière replacée à l'endroit d'où elle a été 
sauvegardée par CSAVE. L'intérêt réside dans le fait qu'il n’est absolu- 
ment pas nécessaire de savoir d'où provient une zone pour la recharger 
à l'emplacement correct, le revers de la médaille étant l'impossibilité de 
reloger cette dernière à un endroit différent de sa première implantation. 


e || n'y a aucun moyen de rester à l'intérieur d'un programme après 
CLOAD, celui-ci provoquant automatiquement le retour en mode direct 
après son exécution si AUTO est omis dans la sauvegarde, omission 
indispensable dans le cas d’une zone-mémoire non exécutable (écran ou 
jeu de caractères par ex.). 


e CLOAD modifie les pointeurs de fin de programme et de variables. Cela 
n'a que peu d'importance si un programme est chargé ensuite, mais 
peut être désastreux si une zone est chargée à partir d'un programme 
résident. Dans ce cas: 


— Les variables simples et les tableaux de chaînes sont perdus. 
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— Le pointeur de fin de programme prend la valeur de <adresse fin», 
donnée dans le CSAVE qui a sauvegardé la zone. Donc, si vous chargez 
un écran où un jeu de caractères, ORIC considérera que le programme 
se termine à l'adresse 48000 ou 49000, et toute tentative d'exécuter 
un RUN provoquera une impitoyable OUT OF MEMORY ERROR. 


Il existe deux manières de contourner ce problème: 


1) 


— Prévoir une ligne 1 dans le programme. 

— Repérer la valeur contenue dans #9C,#9D par ?DEEK(#9C) avant de 
charger la zone désirée. 

— Charger la zone, par exemple avec CLOAD" <Nom>",AO,EO (les argu- 
ments de À et E n'ont pas d'importance). 

— Redonner la valeur correcte à #9C,#9D, par DOKE#9C,<valeur lue>. 

— Relancer le programme en tapant GOTO 1. 


2) 


Ce procédé est plus élégant car automatique, nous l'avons d'ailleurs utilisé 
dans tous les programmes par la suite: 


— Insérer dans le programme la ligne suivante: 


1 IF DEEK(Z#9C) >40000 THEN DOKE#9C,DEEK(# 400) ELSE DOKE#400, 
DEEK(#9C) 


A la première exécution du programme, l'adresse stockée dans #9C,#9D 
est forcément correcte, donc inférieure à 40000. Dans ce cas, on mémo- 
rise cette adresse de fin de notre programme dans deux adresses libres 
(4400,4#401). Ensuite, après le CLOAD, #9C aura une valeur erronée 
(>40000) et il ne reste plus qu'à y replacer la valeur correcte en lisant la 
valeur mise précédemment dans #400,#401. 


— Relancer le programme en mode direct avec GOTO 1. 


Il n'est pas important que la ligne ci-dessus ait le numéro 1, mais elle doit 
en tout état de cause être située avant toute attribution de variables par le 
programme, qui provoqueront une OUT OF MEMORY ERROR si la valeur 
correcte de #9C,#9D n'a pas été restituée. 


Exemples : || est parfaitement possible de sauvegarder et de recharger des 
zones en mode direct. 
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Pour sauvegarder un écran-texte : 


CSAVE" <Nom>"',A#BB80,EXBFEO et relecture par: 
CLOAD'”'<Nom>,A0,E0 


Sauvegarde d'un jeu de caractères: 


CSAVE"<Nom>",A#B400,E#BB7F relu par: 
CLOAD"<Nom> ",AO,EO 


Voir aussi les diverses applications de ces méthodes dans les programme 
donnés plus loin, CARGEN et MULTIGRAF. 


Pointeurs associés au K7 


Leur connaissance n'est pas indispensable, mais peut se révéler utile pour 
ceux qui programment en langage-machine: 


#35-#46 (53-70) 


Nom du programme (17 caractères max.). La dernière adresse du nom doit 
toujours être O. 


#5F,#60 (95,96) 


Adresse de début de la zone à sauvegarder. 


#61,462 (97,98) 


Adresse de fin. 


#63 (99) 
doit être à 1 si AUTO, à O dans le cas contraire. 


#64 (100) 


A O s'il s'agit d'un programme Basic, et à 1 dans le cas d'une zone (option 
A et E). 


#67 (103) 


A 0 si vitesse rapide, à 1 si vitesse lente (option S). 
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Voici les routines en ROM effectuant les opérations d'entrée-sortie K7: 


Sauvegarde: 


CALL#E6CA lInitialisation du VIA et blocage du clavier 
CALL#E57B Effectue la sauvegarde 
CALL#E804 Initialise le clavier et rend la main 


Relecture : 


CALL#E6CA """" 
CALL#E4A8 Chargement du fichier 
CALL#E804 """"" 


REMARQUE: La routine de chargement modifie les pointeurs du Basic de la 
même manière que CLOAD, les mêmes précautions devront donc être 
prises si elle est utilisée par l'intermédiaire d'un programme Basic. 


La sauvegarde et le chargement de variables sur K7 


Les instructions effectuant ces opérations font cruellement défaut à l'ORIC, 
mais heureusement une routine (assez complexe) en langage-machine 
nous sortira de ce mauvais pas: 


— La routine fonctionne pour les tableaux de chaînes quels que soient leur 
taille et le nombre de leurs dimensions. 


— Elle sera implantée à la place du deuxième jeu de caractères entre 
#B800 et Æ#B9A7 inclus, il sera donc impossible d'utiliser ce dernier ou 
la haute résolution. 


— Nous avons fait commencer le sous-programme Basic effectuant 
l'implantation à la ligne 50000, il sera donc appelé en début du 
programme principal par GOSUB 50000, mais vous pouvez lui donner 
les numéros de ligne de votre choix. 


— Une fois la routine implantée, on l'utilise avec: 
CALLZB9A2, <Nom du tableau> pour sauvegarder. 


CALL#B9A5, <Nom du tableau> pour recharger. 
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Où <Nom du tableau> est le nom du tableau de chaîne a sauvegarder ou 
celui qui recevra les données à la relecture, et répondant à la syntaxe ORIC 
(A$, TA$, etc...). 


POKE #67,1 sélectionnera éventuellement la vitesse lente (S) pour la 
sauvegarde ou la relecture. 


— Bien entendu, pour que le chargement s'effectue correctement le 
tableau doit être dimensionné au préalable par DIM avec exactement 
les mêmes paramètres que lors de sa sauvegarde. 


50000 


50002 R 


50010 
50020 
50030 
50040 
50050 
50060 
50100 
50110 
50120 
50130 


50140 
50150 
50160 


50170 
50180 
50190 


50200 
50210 


50220 


50230 
50240 
50250 
50260 
50270 
50280 
50290 
50300 
50310 


REM +#SAVE-LOAD TABLEAUX%% 
EM 


DE=# B800 

READ VA :REPEAT 

POKE DE,VA :DE-DE+1 

READ VA :UNTIL VA=33 

DOKE# B9A2,#0A4C :DOKE #B9A4, #4CB8 :DOKE #B9A6,#B858 
RETURN 

DATA 85,85,85,85,35,57,68,54,56,85,32,11,185,8,32,214,184,32,186,230,169 
DATA 37,32,198,229,165,51,32,198,229,165,52,32,198,229,32,238,184,32,167 
DATA 229,36,40,16,3,32,53,184,32,4,232,40,96,160,0,177,1,240,23,170,160,2 
DATA 177,1,153,208,0,136,208,248,232,202,240,8,177,209,32,198,229,200, 
208 

DATA 245,32,195,184,144,222,96,32,149,213,32,11,185,8,32,214,184,32,150 
DATA 230,32,48,230,201,37,208,249,32,48,230,133,51,32,48,230,133,52,160 
DATA  2,177,206,197,51,200,177,206,229,52,176,6,32,4,232,76,131,196,32, 
238 

DATA 184,32,235,228,36,40,16,3,32,155,184,32,4,232,40,96,160,0,177,1,240 
DATA 28,32,240,212,170,232,160,0,202,240,8,32,48,230,145,209,200,208,245 
DATA 160,2,185,208,0,145,1,136,208,248,32,195,184,144,217,96,24,169,3, 
101 

DATA 1,133,1,168,144,2,230,2,165,2,196,97,229,98,96,32,202,230,32,24,185 
DATA 160,3,177,206,170,136,177,206,233,1,176,1,202,133,51,134,52,96,24, 


165 

DATA 206,101,51,133,97,165,207,101,52,133,98,160,4,177,206,32,246,209, 
133 

DATA 95,132,96,133,1,132,2,96,32,232,0,201,44,240,3,76,228,207,76,226,0 
DATA 162,0,32,232,0,134,39,133,180,32,232,0,32,134,209,176,6,32,4,232,76 
DATA 228,207,162,0,134,40,134,41,32,226,0,144,5,32,134,209,144,11,170,32 
DATA 226,0,144,251,32,134,209,176,246,201,36,208,6,169,255,133,40,208,12 
DATA 201,37,208,15,169,128,133,41,5,180,133,180,138,9,128,170,32,226,0 
DATA 134,181,166,158,165,159,134,206,133,207,197,161,208,4,228,160,240,31 
DATA 160,0,177,206,200,197,180,208,6,165,181,209,206,240,14,200,177,206 
DATA 24,101,206,170,200,177,206,101,207,144,215,56,96,32,4,232,162,42,76 
DATA 133,196,85,33 
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Comme il pourrait être dangereux pour votre équilibre mental d'avoir à 
taper ce programme deux fois de suite, suivez ces quelques conseils: 


Dès que vous avez fini de le taper sauvegardez immédiatement le 
programme, de préférence en double exemplaire sur deux cassettes 
différentes avant de le tester. En effet, si vous avez commis la moindre 
faute de frappe et qu'un incident se produisait, celui-ci serait irrémédia- 
blement perdu. Il vous sera facile ensuite de le recharger et de le corri- 
ger tout à loisir. 


Il est préférable, avant de le taper ou de le charger, de protéger la zone 
d'implantation de la routine par HIMEM#497FF. 


Avant de commencer l'écriture d'un autre programme pouvant nécessi- 
ter la sauvegarder de variables, chargez d'abord celui-ci, même si vous 
n'êtes pas absolument sûr d'en avoir besoin. || est beaucoup plus facile 
de l'effacer s'il ne sert à rien que de le retaper s'il s'avère 
indispensable ! 


Si les numéros de ligne ne conviennent pas, ils seront très facilement 
changés grâce au programme RENUM donné au paragraphe 1.6.1. 
Comme le sous-programme ci-dessus ne comprend aucun GOTO ou 
GOSUB, il n'y aura aucun souci à se faire à ce sujet. 


Enfin, cette routine est utilisée ‘sur le terrain” dans le programme GENE- 
TEX, paragraphe 3.8.2. 
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3 


L'écran 
et les jeux de caractères 


Cette section est consacrée à l'écran en modes TEXT et LORES, ainsi qu'à 
tous les codes, commandes et fonctions correspondants: l'écran haute 
résolution graphique est traité en quatrième partie. 


La représentation de l’écran en mémoire 


L'écran, tel que nous le voyons sur un téléviseur, est constitué comme un 
rectangle divisé en 28 lignes de 40 colonnes, donc un total de 
28*40=1120 cases. Un caractère ne pourra s'imprimer que dans une de 
ces ‘positions d'affichage”, qui sera définie par son numéro de ligne et 
colonne. 


Or, il faut savoir que l'écran est entièrement représenté en mémoire, 
chaque case de celui-ci occupant un octet. Si on place par POKE le code 
ASCII d'un caractère dans une des adresses de cette zone-mémoire, le 
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caractère s'affichera à la position correspondante sur l'écran. Inversement, 
on pourra lire le contenu d'une position d'affichage par PEEK. Rappelons 
en efet que chaque caractère du jeu possède un code compris entre 32 et 
126, que l'on nomme ‘code ASCII” et dont la liste complète est donnée à 
l'appendice 1. 


La mémoire d'écran va de l'adresse 4#BB80 (48000) qui représente la 


première case en haut à gauche, à l'adresse #BFEO (49120), dernière case 
en bas à droite. Nous avons bien 49120-48000=1 120 octets. 


Les adresses sont associées aux lignes/colonnes selon le schéma suivant: 











48080 | 48081 | 48082 | 48083 48117 | 48118 | 48119 


PSE DOCS RE 
49000 | 49001 | 49002 | 49003 E 49037 | 49038 | 49039 
26] 49040 | 49041 | 49042 | 49043 49077 | 49078 | 49079 
49082 | 49083 49117 | 49118 | 49119 


Nous voyons que toutes les adresses se suivent de haut en bas et de 
gauche à droite. Trois formules simples permettent de convertir des coor- 
données en adresse et vice-versa (A=Adresse, L=Ligne et C=—Colonne), 
considérant que la première ligne et colonne ont le N° O: 
























A=48000+C+Lx40 
L=INT((A—48000)/40) 
C=A-INT(A/40)x40 
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3.1.1. Ligne et colonnes réservées 


Vous avez certainement remarqué que sur le schéma, la première ligne (N° 
0) et les deux colonnes de gauche sont séparées des autres par un trait 
gras: Ces positions sont en effet interdites” à l'affichage en temps normal, 
la première ligne étant utilisée pour les messages de l'ordinateur, en parti- 
culier au cours des transferts de fichiers vers le K7. On peut toutefois affi- 
cher des caractères dans cette ligne en les plaçant un à un avec POKE, 
mais un moyen beaucoup plus élégant (et rapide !) de le faire est donné au 
paragraphe 3.5.2. 


Quant aux deux colonnes de gauche, la première contient un code détermi- 
nant la couleur du fond pour toute la ligne, alors que le code placé dans la 
deuxième détermine la couleur des caractères affichés, toujours pour toute 
la ligne. Vous trouverez la liste complète de ces codes au paragraphe 3.4. 


Ecrire avec PRINT — Les codes de contrôle 


La “position d'affichage”, dont nous avons parlé précédemment, est cons- 
tamment matérialisé à l'écran par un carré noir clignotant : C'est le curseur, 
qui nous indique à quel endroit s'imprimera le prochain caractère. L'instruc- 
tion PRINT est ur des moyens d'effectuer cette impression. 


Cette instruction, qui peut être remplacée par ? (point d'interrogation) nous 
permet bien sûr d'écrire toutes sortes de caractères “visibles” à l'écran, 
soit en les mentionnant directement, par exemple PRINT" Bonjour”, soit un 
par un en les appelant par leur code, à l'aide de la fonction CHRS: 


PRINT CHR$(65) imprimera un A” (code 65) à la position du curseur. 
Évidemment, CHR$ n'est que de peu d'utilité pour écrire des caractères 
“visibles”, comme les lettres ou nombres. Mais il en est autrement lorsqu'il 
s'agit d'imprimer des codes de contrôle. 
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3.2.1. Les codes de contrôle 


En effet, nous avons vu que les codes du jeu de caractères étaient compris 
entre 32 et 126. Mais les valeurs de O à 31 sont également utilisées, 
simplement elles ne génèrent pas un caractère mais une fonction, qui 
concerne en général l'écran ou le clavier. Ceux-ci sont ainsi appelés car on 
les obtient en mode direct en actionnant simultanément la touche CTRL 
(CONTROL) et un lettre de l'alphabet. 


La correspondance entre le mode direct et le mode programme (code à 
utiliser avec PRINT CHR$) est simple : 


Code CTRL—Code ASCII-64 
CTRL À = CHRS$(1), CTRL B = CHRS(2), etc... 


Donc: 


Vous trouverez ci-dessous la liste complète des codes CTRL, en mode 
direct et mode programme. Souvent, les codes les plus importants sont 
générés par une touche spécialisée du clavier: dans ce cas, cette touche 
est rappelée en dessous du code correspondant. D'autre part, il est normal 
que certains caractères soient omis car tous ne sont pas nécessairement 
utilisés. 


MODES 
PROG DIRECT (CTRL) 


—————— ——— 


FONCTION 





CHRS$(1) CTRL A Incrémente d'un caractère le buffer de ligne (voir 
éditeur, 8 3.2.2). 

CHRS(3) CTRL C Interromp l'exécution du programme (BREAK). 

CHRS$(4) CTRL D Démarre/arrête l'impression en double hauteur (cf. 
8 3.3). 

CHR$S(6) CTRL F Démarre/arrête la répétition sonore du clavier 
(bascule). 


CHRS(7) CTRL G Sonnerie clavier. 


CHRS(8) CTRL H Déplace le curseur d'une colonne vers la gauche. 


OÙ +— 
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CHR$(9) CTRL | 
ou —, 
CHRS$(10) CTRL J 
ou | 
CHRS(11) CTRL K 
ou | 
CHR$(12) CTRL L 
CHR$(13) CTRL M 
ou RETURN 
CHR$(14) CTRLN 
CHR$(16) CTRL P 
CHR$(17) CTRL Q 
CHRS$(19) CTRL S 
CHR$(20) CTRLT 
CHRS(24) CTRL X 
CHRS$(27) CTRL | 
ou ESC 
CHR$(29) CTRL ] 
CHRS$(30) 


CHR$(127) DEL 








Déplace le curseur d'une colonne vers la droite. 


Déplace le curseur à la ligne suivante, même 
colonne. 


Déplace le curseur à la ligne précédente, même 
colonne. 


Effacement de l'écran (également CLS en mode 
programme). 


Retour chariot (valide la ligne en cours). 


Efface la ligne où se trouve le curseur de l'écran, 
mais pas du buffer de ligne. 


Théoriquement, recopie sur l'imprimante chaque 
ligne validée à l'écran par RETURN, mais actuelle- 
ment sans fonction. 


Rend le curseur visible/invisible (bascule). 
Bloque/débloque l'affichage (bascule). 
Bloque/débloque les majuscules (bascule). 


Interrompt l'édition d'une ligne (voir éditeur, 
8 3.2.2). 


Caractère Escape (cf. 8 3.3). 


Déblocage/blocage des deux colonnes de gauche 
(résultat visible : affichage en vidéo inverse). 


Place le curseur à la première ligne, première 
colonne de l'écran HOME — accessible par 
programme uniquement. 


Efface de l'écran et du buffer de ligne le dernier 
caractère entré, et déplace le curseur d'une 
colonne vers la gauche. 


0 
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Déplacements du curseur à l'aide de PRINT 


La commande PRINT à elle seule n'autorise pas un positionnement du 
curseur à n'importe quel endroit de l'écran adressage direct curseur, sou- 
vent PRINT AT ou PRINT @ }), mais des déplacements case par case sont 
possibles grâce aux codes 8 à 11, correspondant aux quatre flèches de 
l'écran. 


Exemples : 
FOR N=1 TO 5: ?2CHRS$(11) ; :NEXT 
Place le curseur cinq lignes plus haut; 
FOR N=1 TO 4:?2CHR$(10)CHRS(8) ; :NEXT 


Déplace le curseur de quatre colonnes à gauche et quatre lignes plus bas. 


3.2.2. L'éditeur de ligne 


L'ensemble des commandes permettant d'écrire, puis de corriger un 
programme sont regroupées sous le nom d'"’éditeur”’. On ne peut pas dire 
qu'Oric nous gâte de ce côté-là, puisque seules deux commandes et une 
instruction sont prévues. Mais à elles seules, elles autorisent toutes les 
modifications souhaitées. 


L'éditeur de l'ORIC est appelé un éditeur de ligne, car il ne prend en compte 
qu'une ligne à la fois par opposition à un éditeur d'écran capable de gérer 
des groupes de lignes ou même tout un programme. Par contre, il gère 
l'affichage beaucoup plus rapidement qu'un éditeur d'écran. Son principe 
est le suivant: 


— Chaque caractère frappé au clavier est affiché à l'écran, et en même 
temps placé dans une mémoire-tampon appelée ‘buffer. 


— Les quatre flèches de déplacement, si elles ont un effet sur l'écran, 
n'en ont aucun sur le buffer. 


— La touche DEL élimine du buffer le dernier caractère entré. Elle aura le 
même effet sur l'écran uniquement si le curseur n'a pas été déplacé 
entre-temps avec les flèches ! Prudence, donc. 
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— La touche RETURN vide le buffer, en ‘enregistrant’ la ligne qui s'y 


trouve : Exécution en mode direct si la ligne est correcte sinon émission 
d'un message d'erreur, ou validation de celle-ci en tant que ligne de 
programme s/ /e premier caractère du buffer est un nombre. 


Si vous avez suivi jusqu'ici, vous n'aurez pas de problèmes pour la suite! 


Modifications de lignes existantes 


Deux codes CTRL sont disponibles à cet effet: 


— CTRL A: Le fait de passer sur un caractère affiché à l'écran avec CTRL 


A recopie celui-ci dans le buffer; on peut ainsi recopier des lignes 
entières en passant dessus, sans avoir à les retaper. Évidemment, on 
peut recopier une ligne jusqu'à un certain point, taper ensuite au clavier 
des caractères à modifier, puis continuer à recopier cette ligne.ou une 
autre à partir de n'importe quel point. N'oublions pas que les flèches, si 
elles déplacent le curseur, n'ont aucun effet sur le buffer. 


CTRL X: Affiche un NX (backslash) à la position du curseur, et vide le 
buffer. Le contenu de celui-ci n’est alors pas pris en compte, contraire- 
ment à ce qui se passe avec RETURN. 


Exemples : 


Pour recopier une ligne de programme en changesñi son numéro: 


Taper EDIT <Numéro de la ligne> 


Le curseur est placé juste avant le numéro. Retaper celui-ci et s'il est 
plus long que l'ancien monter d'une ligne avec t , puis taper les 
chiffres restants. 


Placer le curseur avec les flèches sur le premier caractère de la ligne. 
Copier toute la ligne, en faisant passer le curseur dessus avec CTRL A. 
Valider avec RETURN. 


Pour insérer dans une ligne de programme: 


Lister la ligne avec EDIT<Numéro de ligne> 


Faire passer le curseur sur la ligne avec CTRL A, jusqu'à amener le 
curseur sur le caractère suivant le point d'insertion. 


Faire monter le curseur d'une ligne avec ! , puis taper le texte à 
insérer. 
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3.3 


— Revenir sur le caractère suivant le point d'insertion avec les flèches. 
— Copier la ligne jusqu'à la fin avec CTRL A, puis valider par RETURN. 


Ces deux exemples devraient vous permettre de faire toutes sortes de 
modifications dans vos programmes, et même dans des lignes en mode 
direct. Rappelez-vous que: 


— Une ligne est éliminée d'un programme simplement en tapant son 
numéro. 


— Il faut faire attention lorsque vous tapez des nombres à l'écran: Ils 
seront considérés comme des numéros de ligne s'ils sont suivis de 
RETURN, et en effaceront éventuellement de votre programme. 


— Tous les codes CTRL sont ignorés par le buffer, excepté bien sûr CTRL 
A et CTRL X : Vous pouvez non seulement vous déplacer sans risques, 
mais aussi passer en minuscules ou effacer de l'écran une ligne qui 
vous gêne. 

— Lorsque l'écran est vide, il est rempli d'espaces. Quand vous taper 
CTRL A sur une ligne vide, vous ne faites pas ‘’rien”’, vous mettez des 
espaces (code ASCII 32) dans le buffer! 


Utilisation de ESCAPE 


Déplacez le curseur de deux ou trois colonnes vers la droite, puis tapez la 
touche ESC; ensuite, tapez la lettre ’L”’, puis un peu de texte : Vous voyez 
l'effet à l'écran d'un code ESCAPE, en l'occurence ESC L. Ils fonctionnent 
de la manière suivante: 


Le caractère ‘Escape’ (code ASCII 27) indique à l'ORIC que le caractère 
suivant ne doit pas être affiché, mais considéré comme un attribut; cet 
attribut sera valide sur le restant de la ligne où il se trouve, mais pas sur les 
suivantes. || existe toutes sortes d'attributs, déterminant la couleur du fond 
et des caractères, leur clignotement, le passage en double taille ou le chan- 
gement de jeu. Vous trouverez la liste complète des attributs au 8 3.4. 


Nous avons vu qu'il est extrêmement simple d'utiliser Escape en mode 
direct; ce n'est pas plus compliqué par programme, il suffit de taper: 


bien: PRINT CHR$(27) <caractère> ” 
OU DIEN: PRINT CHR$(27)CHR$(<code caractère>) 
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Exemples : 


Tapez la séquence de caractères suivante (ESC est bien sûr la touche 
ESC): 


ESC Q ESC C JAUNE/ROUGE ESC L FLASH 
Maintenant, tapez ce programme puis exécutez-le : 


10 E$—-CHRS(27) 
20 ?2E$”’Q"'E$""CJAUNE/ROUGE ’’E$'’ LFLASH 


— Vous constaterez que l'effet est identique à celui de la ligne précédente 
en mode direct. 


— À la ligne 10, on a mis le caractère Escape dans la variable E$, pour 
s'éviter de taper trois fois de suite CHRS$(27). 


— Les lettres Cet ”’L”’, incluses dans les messages, ne sont pas consi- 
dérées comme des caractères à imprimer mais comme des attributs, 
car elles suivent immédiatement le caractère Escape. 


Utilisation de la double hauteur 


Vous aurez certainement remarqué, en essayant les codes CTRL, que CTRL 
D provoquait un dédoublement de l'impression sur deux lignes. D'autre 
part, ESC J imprime un caractère bizarre qui en fait est la moitié (inférieure 
ou supérieure, selon la ligne où l'on se trouve) d'un caractère complet en 
double hauteur. C'est la réunion de ces deux fonctions qui permettra l'affi- 
chage de caractères en double taille. Mais attention : Les lignes paires ne 
peuvent contenir que la moitié supérieure, et les lignes impaires que la 
moitié inférieure d'un caractère. 


Exemple : 


10 E$-CHR$(27) :CLS : 2CHRS$(4) 
20 ?” ES’ JDOUBLE”’E$"NDOUBLE FLASH’ 
30 2CHRS$(4) 


REMARQUE : CTRL D ou CHRS$(4) agissant comme une bascule, il faut être 
sûr que la double taille n'est pas déjà en fonction quand on l'utilise. || est 
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cependant facile de forcer la double ou simple taille avec POKE 618 (cf. 
8 2.3.3); dans ce cas, les lignes 10 et 30 deviendraient: 


10 E$=CHR$(27) :CLS : ? :POKE 618,67 
et 
30 POKE 618,3 


D'autre part, deux espaces ont été inclus à la ligne 20, juste avant Escape, 
ce qui n'était pas le cas dans le programme précédent. La raison en est très 
simple : La première colonne est dévolue au code déterminant la couleur du 
fond, et ne peut donc accepter que des caractères Escape ayant le même 
effet. C'est aussi le cas pour la deuxième colonne, qui elle détermine la 
couleur des caractères. Si un code de type différent est imprimé dans ces 
colonnes, en général le fond et l'affichage deviennent noirs. 


3.3.1. La Hardcopy texte 


Une "’hardcopy''est une copie exacte sur imprimante de ce qui apparaît à 
l'écran. Le programme qui suit exécute cette fonction pour l'écran texte (Un 
programme analogue effectuant la hardcopy graphique est donné au 
8 4.4), et il est numéroté à partir de 60000 afin d'être inclus comme sous- 
programme dans vos applications personnelles. Ne comprenant aucun 
code spécifique, cette routine fonctionne sur toutes les imprimanes. 


60000 REM HARDCOPY TEXTE 
60002 REM 

60010 AD=—48000 :AF—49080 :LPRINT TAB(20) :CALL# ED01 
60020 FOR N=AD TO AF STEP 40 

60030 FOR A=0TO 39 

60040 D=PEEK(A+N) :IF D <32 OR D >126 THEN D=32 
60050 LPRINT CHRS$(D); 

60060 NEXT A :LPRINT :LPRINT TAB(20); 

60070 NEXT N :CALL #E804 


Explications : 


— 60010: Fixe les limites de la zone à copier (écran), et centre celle-ci sur 
une imprimante 80 col. La routine appelée désactive le clavier pour 
éviter le interférences pendant la durée de l'impression. 


— 60040: Lit le contenu de chaque adresse-écran, et remplace les attri- 
buts non imprimables par des espaces (ASCII 32). 
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3.4 


— 60050: Envoie le code du caractère lu à l'imprimante. 


— 60060: Saut de ligne tous les 40 caractères, et recentrage de la ligne 
suivante. 


— 60070: Réinitialisation du clavier. 


Notez que les commandes LPRINT TAB(X) ne présentent d'intérêt que 
dans le cas d'une imprimante 80 colonnes, pour le centrage du texte qui 
n'en fait que 40. Elles devront bien sûr être supprimées si vous utilisez un 
modèle 40 colonnes. 


L'’instruction PLOT — Les attributs d’écran 


Cette instruction, dont l'effet surprend un peu ceux qui sont habitués à 
d'autres machines, est néanmoins extrêmement puissante : 


— Elle permet d'afficher à l'écran des variables ou constantes de chaînes, 
ainsi que des attributs ou des caractères isolés appelés par leur code. 


— Elle ne permet pas d'imprimer des variables ou constantes numériques 
ou des codes CTRL, et ne déplace pas le curseur. 


— L'affichage de nombres reste néanmoins possible, à condition de les 
convertir en chaîne au préalable à l’aide de STR$: Si on veut imprimer 
en col.5 ligne 10 la variable N, nous devrons écrire: PLOT 
5,10,STRS$(N). 


— On peut imprimer un caractère du jeu ASCII en vidéo inverse en 
écrivant : 


PLOT< Col.>,<Ligne>,<Code Car.> +128. 


(Le jeu ASCII complet avec ses codes est donné à l'Appendice 1). 


Exemples: Tapez au clavier: 


PLOT 10,10,22 
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Et le petit programme suivant: 


10 CLS:? 
20 ?”"JAUNE/ROUGE FLASH” 
30 PLOT 0,1,17 :PLOT 1,1,3 :PLOT 13,1,12 


Comme on peut le voir dans cet exemple, PLOT sert non seulement à affi- 
cher des caractères mais aussi, comme ESC, à placer des attributs à 
l'écran. En fait, chaque caractère considéré comme attribut après ESC 
possède un équivalent numérique utilisable par PLOT. 


Il ne faut absolument pas confondre ces attributs avec les codes CTRL, qui 
ont pourtant les mêmes nombres (0 à 31). Ceux-ci s'emploient avec 
PRINT, et correspondent à un standard international (ASCII), alors que les 
attributs sont des codes internes de l'ORIC, affichés par PLOT ou POKE. 


Attributs d'écran 


Pour chacun d'eux nous donnons la valeur à donner derrière PLOT ou 
POKE, la séquence ESCAPE correspondante et la fonction exacte: 


Couleurs affichage 









O0 Noir 

1 ESC A Rouge 

2 ESC B Vert 

3 ESC C Jaune 

à ESC D Bleu 

5 ESCE Magenta 
6 ESC F Cyan 

7 Blanc 





Taille et jeu de caractères 








Taille normale, jeu normal (ASCII) 
Taille normale, jeu graphique 
Double taille, jeu normal 
Double taille, jeu graphique 


9 ESCI 










Clignotant, taille normale, jeu normal 


13 ESC M Clignotant, taille normale, jeu graphique 
14 ESCN Clignotant, Double taille, jeu normal 
15 ESC O Clignotant, Double taille, jeu graphique 
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Couleur de fond 


16 ESC P Noir 

17 ESC Q Rouge 
18 ESCR Vert 

19 ESCS Jaune 
20 ESCT Bleu 

21 ESC U Magenta 
22 ESC V Cyan 

23 ESCW | Blanc 





— On peut constater que les codes sont organisés de façon logique, et 
que les couleurs du fond correspondent à celles de l'affichage plus 16. 


— En ce qui concerne les caractères double taille, l'utilisation de PLOT est 
assez malaisée: comme ceux-ci occupent deux lignes à l'écran, il 
faudrait placer le code par PLOT sur les deux lignes concernées pour 
obtenir le résultat souhaité ! Escape est, dans ce cas, beaucoup plus 
pratique d'emploi. 


N'oublions pas enfin que PLOT peut aussi servir à écrire n'importe quelle 
chaîne de caractères n'importe où à l'écran (une à la fois cependant), et se 
révèle donc très utile pour imprimer des messages ou animer des objets 
rapidement et sans déplacer le curseur. 


3.4.1. Le programme ’”’ Tennis” 


Le programme suivant montre comment on peut exploiter les particularités 
de PLOT dans un jeu en temps réel, en l'occurrence un jeu de tennis à un 
joueur rappelant les ancêtres (déjà !) de nos actuels jeux de café. 


Peu d'explications sont nécessaires : On peut choisir la taille du terrain, la 
barre d'espacement envoie une balle, la raquette se déplace avec les 
flèches | } et la touche R permet de changer la taille du terrain en cours 
de partie. 


10 REMAJITENNIS 

12 REM 

50 R=1:X=1:Y=1:FX=1 :FY=1:AX=8 :S=0 
100 GOSUB 9000 
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110 

120 

130 

140 

150 

998 
1000 
1002 
1100 
1110 
1120 
1130 
1135 
1140 
1150 
1160 
1170 
1200 
1210 
1220 


GOSUB 6000 

GOSUB 8000 

GOSUB 7000 

POKE 618,10 

PLOT4,1,/'SCORE: O0  ‘’’:PLOTX,Y,64 
REM 


REM BOUCLE PRINCIPALE 

REM 

X$=KEYS$:IF X$ <> ’’’” THEN AX=ASC(XS$) 

ON AX-—7 GOTO 1150,1150,1130,1140 

GOTO 1150 

IF R<23 THEN PLOTI,R,96 :R=R+1 :PLOTI,R,126 :PLOTI,R+1,126 
GOTO 1150 

IFR>3 THEN PLOTI,R+1,96 :R=R—1 :PLOTI,R,126 :PLOTI,R+1,126 
IF Y<4 THEN FY=1:SHOOT :PLAYO,0,0,0 

IF Y>23 THEN FY=-1:SHOOT :PLAYO,0,0,0 

IF X>T THEN FX=-1 :SHOOT :PLAYO,0,0,0 

IF X>2 THEN 1300 

IF X<2 THEN 1500 

IF Y=R THEN FX=1:FY=-1 :SHOOT :PLAYO,0,0,0 :S=S+1:1F Y=3 THEN 
FY=1 


1230 IF Y=R+1 THEN FX=1:FY=1 :SHOOT :PLAYO0,0,0,0 :S=S+1:1F Y=24 THEN 
FY=—1 

1240 PLOT10,1,STRS$(S) 

1300 PLOTX,Y,32 :X=X+FX:Y=Y+FY :PLOTX,Y,64 

1310 GOTO 1100 

1498 REM 

1500 REM BALLE PERDUE 

1502 REM 

1510 ZAP :S=0 :AX=32 

1520 GET X$:1F X$=""R"" THEN RUN 

1530 IF X$ <> CHRS$(32) THEN 1520 

1540 IF Y=R OR Y=R+1 THEN PLOT1,Y,126 ELSE PLOT1,Y,96 

1550 GOTO 130 

5998 REM 

6000 REM CHOIX DU TERRAIN 

6002 REM 

6010 CLS :POKE 618,67 :POKE 616,5 :? 

6020 ?2SPC(12)CHRS$(27)""JTENNIS ”” 

6030 POKE 618,3 :POKE 616,10: ? :INPUT''TAILLE DU TERRAIN (0 À 14)"";T 

6040 IF T<0 OR T>14 THEN 6000 

6050 T=T+20 :RETURN 

6998 REM 

7000 REM SERVICE BALLE 

7002 REM 

7010 IF RND(1) <0.5 THEN FY=-1 else FY=1 

7020 X=T+1:FX=-—1 

7030 Y=INT(RND(1)+21)+3:RETURN 

7998 REM 
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8000 REM DESSIN TERRAIN 


8002 REM 
8005 CLS 


8010 FOR N=—48122 TO 49042 STEP 40 

8020 POKE N,96 :POKE N+T+1,128 :NEXT 

8030 R=—13 :PLOT1,13,126 :PLOT1,14,126 

8040 AD=48122 :7=0 

8050 FOR N=0 TO T STEP 2 

8060 DOKE AD+N,32896 :NEXT 

8070 IF Z—-0 THEN Z=1:AD—49042 :GOTO 8050 


8080 RETURN 


8998 REM 


9000 REM  INITIALISATIONS 


9002 REM 


9010 READ AD:IF AD=0 THEN 9100 
9020 FOR N=0 TO 7 
9030 READ DA :POKE AD+N,DA 


9040 NEXT 


9050 GOTO 9010 


9100 RETURN 
9500 DATA 46592,12,30,63,63,63,30, 
9510 DATA 47088,31,31,31,31,31,31 


9520 DATA 46848,0, 44, 4,4,4,0 


9600 DATA 0 


Explications 


50 


110-130 


9000-9600 


6000-6050 
8000-8080 


7000-7040 


:Attribue le plus tôt possible les variables importantes pour la 


vitesse d'exécution. 

R=Ordonnée de la raquette 

X=—Abscisse de la balle 

Y—Ordonnée de la balle 

FX=Valeur à ajouter à l’abscisse de la balle (1 ou —1) 
FY=Valeur à ajouter à l'ordonnée de la balle (1 ou —1) 
S=Score 


:Appel des sous-programmes de définition des caractères 


spéciaux, saisie de la taille du terrain, dessin du terrain et service. 


: Dessin de la balle (code 64), de la raquette (code 126) et du 


pointillé servant de fond à la raquette (96). (Cf. 8 3.7.3). 


: En-tête du jeu et saisie de la taille du terrain (T). 


:Tracé du terrain. Le caractère 128 (carré noir) est placé par POKE 


et PLOT aux emplacements corrects. 


:Service aléatoire. On détermine d’abord un sens aléatoire pour la 


balle (7020), puis une ordonnée aléatoire pour son apparition. 
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3.5. 


1100 :Saisie de la touche pressée. 
1130-1140  :Gestion des mouvements de la raquette. 


1150-1170 :Détermination du sens de rebond de la balle, en fonction de son 
angle d'impact. 


1200 :Teste si la balle atteint l'abscisse de la raquette. 

1210 :Teste si la balle a été perdue. 

1220-1230 :Balle rattrapée; gestion de son rebond sur la raquette. 

1240 ‘Affichage du nouveau score. 

1300 :Efface la balle à ses anciennes coordonnées, et l'affiche aux 
nouvelles. 

1310 :Retour dans la boucle. 


Extensions au Basic — Le langage-machine 


Dans les chapitres précédents, nous avons passé en revue toutes les 
commandes et fonctions offertes par le Basic pour la gestion de l'affichage, 
en rapport avec PRINT et PLOT. On peut cependant aller nettement plus 
loin dans les possibilités et le confort d'utilisation, en exploitant notamment 
les variables-système liées à l'écran. 


3.5.1. Ecrire et lire à l’écran avec POKE et PEEK 


Nous avons vu au paragraphe 3.1 que le stockage de tout le contenu de 
l'écran en mémoire permettait d'y afficher n'importe quel caractère avec 
POKE, en tapant POKE<Adresse>, <Code Car.> (les codes ASCII de tous 
les caractères se trouvent à l'appendice 1). En général, il est beaucoup plus 
pratique d'utiliser PLOT qui a la même fonction en étant plus parlant”, 
dans la mesure où la position d'affichage y est donnée non pas par une 
adresse mais par des numéros de ligne et colonne. 
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L'usage de POKE se révèle cependant indispensable dans le cas où l’on 
veut accéder à la première ligne de l'écran, interdite à PRINT et PLOT. II 
suffira d'écrire: 


10 M$—”" < Message à imprimer > ”” 

20 FOR N=1 TO LEN(MS) 

30 POKE 48001+N+ <Col.début > ,ASC(MID$(MS,N,1)) 
40 NEXT N 


Toute chaîne de caractères attribuée à M$ à la ligne 10 sera imprimée sur 
la première ligne de l'écran, à partir de <Col.début>. Une autre méthode, 
encore plus rapide, est donnée au paragraphe 3.5.2. 


En ce qui concerne les codes fournis comme arguments à POKE, tous ceux 
compris entre 32 et 128 sont considérés comme des caractères du jeu 
ASCII, et ceux compris entre O et 31 comme des attributs; les règles sont 
identiques à celles en vigueur pour PLOT, et exposées plus haut. De même, 
un caractère sera imprimé en vidéo inverse si on POKE son code +128. 


Enfin, en lisant un code dans une adresse de l'écran, PEEK établit la même 
correspondance avec la fonction SCRN que POKE avec PLOT. Rappelons 
que SCRN ne permet pas plus de lire le contenu de la première ligne que 
PLOT ne permet d'y écrire, PEEK sera donc indispensable dans ce cas. 


3.5.2. L'utilisation des variables-système 


Modification de la taille de l'écran 


Trois variables déterminent entièrement les limites haute et basse de la 
zone d'évolution du curseur: 


— L'adresse de début de la première ligne de l'écran est contenue dans 
#26D,#26E (621,622). Normalement, cette valeur est de 48000, lais- 
sant la première ligne (qui commence à 47960) hors d'atteinte du 
curseur. Pour récupérer celle-ci, il suffira donc de taper DOKE 
621,47960. Effacez l'écran, et voyez où se place le curseur! 


Maintenant faites un RESET, écrivez un peu de texte à l'écran puis entrez la 
ligne suivante en mode direct: 


DOKE621,47960 : ?CHR$(30)’CE MESSAGE EST INAMOVIBLE!”’:DOKE621, 
48000 
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Vous constatez que votre message, qui ne peut plus être effacé, s'est affi- 
ché considérablement plus vite qu'avec POKE, et en utilisant tout bête- 
ment PRINT. Rappelons que CHR$(30) place le curseur au coin supérieur 
gauche de l'écran, sans effacer celui-ci. 


Inversement, vous pouvez interdire au curseur un nombre quelconque de 
lignes, avec la formule: 


DOKE 621, < Nombre de lignes interdites > x40+47960 


Seuls, PLOT et POKE permettront d'aller encore dans ces lignes. Évidem- 
ment, rien n'est plus simple que de redimensionner l'écran à sa taille maxi- 
male, l'effacer puis redéfinir ses limites tout de suite après: Le tout est 
extrêmement rapide. 


— La dernière ligne de l'écran est déterminée par #26F (623). Cette 
valeur, qui est normalement de 27, est elle aussi modifiable par l'utili- 
sateur selon la formule: 


POKE 623,< N° de la ligne inférieure > 


Plus qu'un long discours, le petit programme suivant vous donnera un 
aperçu des possibilités offertes: 


10 CLS :PLOT3,20,'' VOUS NE POUVEZ PAS ECRIRE ICI” 
20 POKE 623,15 

30 FOR N=1 TO 20 

40 2:2SPC(10)''TEXTE.....”’:WAIT15 

50 ?SPC(10)""A IMPRIMER” :WAIT15 :NEXT 

60 CLS :PLOT6,22,''NI EFFACER D'AILLEURS!” 


Pour terminer, il faut savoir que: 


— PLOT et POKE peuvent toujours accéder aux lignes hors limites en bas 
de l'écran. 


— Si vous changez à la fois les limites haute et basse, commencez par le 
bas, ou alors comptez le nombre de lignes données comme argument à 
POKE 623 à partir de la nouvelle limite supérieure. 


— Rien ne vous oblige à donner une adresse multiple de 40 (47960, 
48000, 48040, etc.) comme argument à DOKE 621. Mais dans ce cas, 
considérez-vous comme seul responsable de ce que vous verrez à 
l'écran! Même remarque pour des nombres supérieurs à 27 dans 
POKE 623. 
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L'adressage direct du curseur 


Les deux variables #268 (616) et #269 (617) contiennent respectivement 
la ligne et la colonne où se trouve le curseur. L'instruction PRINT AT ou 
PRINT @ , bien connue sur d'autres machines, peut se simuler grâce à ces 
variables selon la formule: 


POKE 616,< N° ligne >—1 :PRINT :POKE 617,<N° Col. > 


Le PRINT est indispensable après POKE 616, car le positionnement verti- 
cal du curseur n'est effectif qu'après cette instruction (Cf. 8 2.3.3). 


Exemple : 


10 CLS:CO=30 

20 FOR LI=27 TO 1 STEP—1 

30 POKE616,L1—1 : PRINT :POKE617,CO 

40 PRINT''LIGNE "LI ; :CO=CO-1 :WAIT10 
50 NEXT :POKE616,22 :PRINT 


Nous constatons que toutes les opérations d'affichage de ce programme 
sont effectuées par PRINT, POKE n'étant utilisé que pour les déplacements 
curseur. 


Une autre variable gère également la ligne où se trouve le curseur: Il s'agit 
de #12,#13 (18,19), contenant l'adresse de début du Numéro de ligne où 
se trouve le curseur. Contrairement à POKE 616 toutefois, 
DOKE18,<Adresse> est immédiatement effectif et ne nécessite pas de 
PRINT à la suite. 


REMARQUE: 


— Bien entendu, ces variables peuvent aussi nous retourner des valeurs, 
étant constamment réactualisées par ORIC en cours de fonctionne- 
ment. La position exacte du curseur (ligne-colonne) sera retournée par: 
?PEEK(616)PEEK(617). 


— Souvent en utilisant 616 ou 18,19 des curseurs “parasites” seront 
imprimés, surtout si des ; sont utilisés après PRINT. Le remède est 
simple : Faites disparaître le curseur avec CTRL Q, PRINT CHR$(17) ou 
POKE 618,2 (ce n'est pas les moyens qui manquent !). 
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3.6. Modes texte et LORES 


3.6.1. Le mode LORES 


Celui-ci ne présente que peu de différences avec le mode Texte normal, il 
est mis en service par: 


LORES 0, qui est identique à TEXT avec un affichage en vidéo inverse, et 
utilise le jeu de caractères normal. 


LORES 1, comme ci-dessus mais utilisant le deuxième jeu de caractères 
(mosaïques graphiques) sur tout l'écran. 


REMARQUE : 


— Ces deux fonctions sont obtenues en plaçant le code du jeu désiré (8 
ou 9) dans la première colonne réservée, puis de remplir la deuxième 
colonne avec le code ‘’fond noir”. Le fait de fournir un code de couleur 
de fond à la deuxième colonne (normalement réservée à la couleur des 
caractères) provoque l'affichage en blanc sur la couleur choisie. 


— En conséquence de ce qui vient d'être dit, il est impossible de changer 
les couleurs de l'écran LORES par PAPER ou INK, ceux-ci agissant 
précisément sur les deux premières colonnes. 


— Les couleurs valides en mode texte sont mémorisées dans #26B (619) 
pour le fond et #26C (620) pour l'affichage. Si vous effacez l'écran en 
mode LORES, ces valeurs seront restituées ainsi que le jeu de carac- 

tères standard, vous faisant retourner au mode normal. Heureusement, 
il existe un moyen très simple pour résoudre ces problèmes: 


3.6.2. Choix d’attributs pour tout l’écran 


Les deux variables que nous avons mentionnées (619,620) offrent en 
quelque sorte un LORES ‘à la carte”: On peut choisir n'importe quelle 
couleur de fond et de premier plan, ainsi que n'importe quel autre attribut 
d'affichage instantanément valide sur tout l'écran: Caractères double 
taille, clignotants, changement de jeu etc. (La liste complète des attributs 
est donnée au 8 3.4). Il suffit de taper: 


POKE619, < Attribut1> :POKE620, < Attribut2 > 
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3.7. 


Et 


de respecter les quelques consignes suivantes: 


L'astuce consiste à ne pas placer l'attribut correct dans la colonne 
adéquate (couleur fond dans 619 et premier plan dans 620). Si c'était 
le cas, PAPER et INK sont bien sûr plus intéressants. 


Les nouvelles valeurs entrent en vigueur après effacement de l'écran. 
Le fait d'effacer l'écran ensuite respectera ces valeurs, contrairement à 
ce qui se passe en LORES. 


Étant donné que l'attribution aux colonnes réservées d'un code qui ne 
leur est pas destiné rend le fond noir et les caractères blancs, l'affi- 
chage se fera toujours en clair sur sombre. 


Exemples : 


Simulation de LORES 1: 


POKE619,9 :POKE620,16 :CLS 


Blanc sur rouge, caractères géants: 


POKE619,10 :POKE620,17 :CLS puis CTRL D 


Rouge sur noir, clignotant: 


POKE619,1 :POKE620,12 :CLS 


Les jeux de caractères 


3.7.1. Généralités 


Ceux-ci sont au nombre de deux: 


Le jeu standard, correspondant à la norme américaine ASCII et 
comprenant les caractères alphanumériques et les ponctuations. Les 
codes de ces caractères vont de 32 (Espace) à 126 (zone grisée). La 
liste du jeu ASCII avec tous ses codes se trouve à l'Appendice 1. 


Le deuxième jeu, composé de mosaïques graphiques, comprenant 
64 caractères dont les codes vont de 32 à 95. Ces caractères s'obtien- 
nent par l'écriture d'attributs appropriés à l'écran (voir plus haut). 
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3.7.2. Principes de codage 


Les caractères sont dessinés dans une matrice de 8x8, chacun des points 
de la matrice pouvant être allumé” (noir) ou ‘’éteint”’ (blanc). Un point est 
représenté par un Bit, il faut donc un octet pour stocker 8 points ou une 
ligne horizontale de la matrice, et 8 octets pour stocker un caractère en 
mémoire. Ces 8 octets sont situés en mémoire dans huit adresses consé- 
cutives, l'ensemble de ceux-ci constituant deux zones: Entre les adresses 
#B400 (46080) et 4#B7FF (47103) pour le jeu standard et #B800 
(47104)-#BB57 (47959) pour le deuxième jeu. 


Étant donné que ces zones sont en mémoire vive, n'importe quel carac- 
tère peut être entièrement redessiné par l'utilisateur en fonction de ses 
besoins, en modifiant la valeur des adresses le définissant: Minuscules 
accentuées, invaders, etc. 


La première des huit adresses codant un caractère donné est trouvée par la 
formule : 


<Adresse>=46080+8#+<code ASCII du car.> pour le jeu normal, et 
<Adresse>—47104+8+<code ASCII du car.> pour le jeu graphique. 


L'exemple suivant montre comment un caractère est stocké dans ces 





adresses: 
Matrice Adresses Valeur décimale Valeur binaire 
Bits [3216] 8141211 
46600 8 00 001000 
46601 20 00 010100 
46602 34 00 100010 
46603 34 00 100010 
46604 62 00 111110 
46605 34 00 100010 
46606 34 00 100010 
46607 O0 00 000000 











Vous remarquerez que les bits de poids 64 et 128 sont inutilisés, ils ont 
d’ailleurs été omis de la matrice pour plus de clarté. En fait, seuls les six 
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premiers bits d'un octet sont utilisés pour le dessin, la matrice fait donc 
8x6 cases. Si vous avez du mal à comprendre comment le contenu de la 
matrice est codé, voyez aussi paragraphe 2.1.). 


3.7.3. Comment créer un caractère 


Pour y arriver facilement, commencez par suivre la méthode ci-dessous: 


— Dessinez sur une feuille de papier un damier de six colonnes et huit 
lignes. 


— Au-dessus de chaque colonne, marquez la valeur de chaque Bit, 
comme pour la matrice du ‘A’ ci-dessus (32,16,8,4,2 et 1). 


— Dessinez votre caractère en noircissant les cases appropriées. 


— À droite à côté de chaque ligne, notez le nombre résultant de l'addition 
des valeurs de toutes les cases noires de la ligne, cette valeur étant 
notée au-dessus de chaque colonne. (Une case blanche vaut O). 


— Choisissez le caractère à remplacer par le vôtre, puis repérez son code 
ou demandez-le à ORIC en tapant: ?ASC('"’<Caractère>’). 


— Trouvez la première adresse des 8 codant le caractère avec 
<Adresse>=46080+<code ASCII>+»8. 


— Placer la valeur marquée à côté de la première ligne du damier dans 
l'adresse trouvée, puis la valeur à côté de la deuxième ligne dans 
l'adresse trouvée +1, etc. jusqu'à la ligne 8 dans 
<Adresse> +7: POKE<Adresse>,<Valeur>. 


Voilà ! votre caractère est redessiné, utilisez-le pour vérifier. Tout cela a l'air 
assez long, mais en fait l'habitude vient très vite. 


Si vous aimez le calcul mental, voici une autre méthode qui économise des 
instructions, donc du temps et de la place. Nous avons vu qu'il fallait 
POKER huit nombres dans huit adresses. Mais pourquoi ne pas le faire sur 
quatre ‘couples d'adresses avec DOKE ? Soient les huit adresses AO à A7 
et les huit valeurs V1 à V8, il faut écrire: 


DOKE A0,V1+V2+256:DOKE A2,V3+V4x256 :DOKE A4,V5+V6+256 :DOKE A6, 
V7+V8+256 
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3.8. 


Exemple : 


Création d'un ‘”’invader” à la place du caractère ‘”’ @ ‘’ (Code ASCII 64). 











Valeur décimale Valeur binaire 





Matrice Adresses 


Bits [82/16| 8 ah 





001100 


00 011110 
00 101101 
00 111111 
00 011110 


00 001100 
00 011110 
00 110011 





Ces valeurs seront entrées à l'aide d'une des deux séquences suivantes: 
À: 


10 POKE 46592,12:POKE 46593,30 :POKE 46594,45 :POKE 46595,63 
20 POKE 46596,30 :POKE 46597,12 :POKE 46598,30 :POKE 46599,51 


2: 
10 DOKE 46592,7692 :DOKE 46594,16173 :DOKE 46596,3102 :DOKE 46598,13086 


Les programmes d’applications: CARGEN et GENETEX 


Ces deux programmes reprennent à eux deux quasiment toutes les 
commandes de gestion de l'écran, de la mémoire ou des périphériques qui 
ont été vues jusqu'à présent. CARGEN est directement en rapport avec le 
chapitre précédent, quant à GENETEX il vous permettra, comme son nom 
l'indique, de faire du ‘’traitement de textes”. 


3.8.1. Le programme ’’ CARGEN’’ 


Les procédures de modifications de caractères exposées ci-dessus sont 
idéales lorsque vous n'avez à en redessiner que quelques-uns pour une 


84 


application particulière. Mais si vous voulez reconfigurer un jeu complet, 
puis le sauvegarder sur cassette pour réutilisation ultérieure, voici ce que 
vous pourrez faire avec le programme CARGEN: 


1) 
2) 


3) 


4) 
5) 


Afficher sur l'écran le jeu complet, ainsi qu'une matrice agrandie. 


Choisir un caractère du jeu en se déplaçant dans celui-ci, avec un 
curseur spécial. 


Transférer le caractère choisi dans la matrice, le modifier en dessinant 
avec les 4 flèches, puis replacer le caractère n'importe où dans le jeu. 


Transférer des caractères d'un emplacement à l'autre dans le jeu. 


Sauvegarder et relire un jeu sur cassette. 


Commandes disponibles 


<> Déplacements dans le jeu de caractères. 
1-2 Choix du jeu (1—Jeu standard, 2—Jeu graphique). 
C Copier dans la matrice le caractère pointé par le curseur 


‘jeu CA 


RETURN Copier à la position du jeu pointée par le curseur le caractère 


se trouvant dans la matrice. 


Flèches Déplacements dans la matrice. 

ESPACE Trace/Efface un point de la matrice (bascule). 

DEL Efface la matrice. 

ESC Permet d'accéder aux fonctions de Sauvegarde et Charge- 
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1 

2 

26 
28 
29 
50 
6 
74 
86 
96 


ment d'un jeu, et abandon du programme. 


REM **x CARGEN *% 

REM 

CLS 

REM GESTION FOINTEURS 
REM 


IF A(1)THEN DOKE#9C, DEEK (#466) : GOTO7@ELSEDOKE#466, DEEK (#90) 
: GOSUR9166° Initialisations 

EN%="CARGEN Generateur de caracteres "+CHK$(96)+" EVRF" 
FRINTCHRS$ (17): 

: GOSUR9GOG" En-tete 


169 GOSUR8906° Dessin Jeu 
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195 GOSURS2& 
119 GOSUR8S56 
204 GOSUR746@ 


à” Dessin grille 
19° Aides 
9° Gestion curseurs 


216 GOTO:6G6" Sauveg. jeutfin prog. 


495 REM 
1900 MS$="JEU No"+STRS(J)+" NOM: "+NJS 
1919 FLOTS,9,MS$ 

192% RETURN 

1998 REM 

2066 REM  LECTURE/ECRITURE CARACT. 

2002 REM 

2095 PLAY1,0,3, 1068 


2698 
2196 
2102 
2116 
21356 
2146 
2145 
2156 
2176 
2175 
2184 
2196 
2246 
2498 
2500 
Et oies 

sie 
2520 

946 
2556 
2 La 56 [s] 

576 
2586 
266 
2998 
F0G@ 
5002 
F616 
F62& 
303€ 
35646 
T450 
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PRINTCHRS (17) 3 
FO=({XJ-5)/2)+YJ/40+18 
IFJ=1THENAA=#ESOG+PO+8 
IFJ=2THENAA=#E9GG+FO+S 
IFAS=12THENZS566 

REM 

REM Lecture caractere 

REM 

NO(1)=127:N0(@)=52 

FORM=6TO280STEF 46 

AW=AA+M/46@ 

Q1=FEEKR (AW) /2: R=PEEE (AW) — CINT (Q1) #2) 
FORN=STOGSTEF-1 

IFG1=. STHENFOKE48687+M+N, 127: Q1=GELSEFOKE48687+M+N, NO (KR) 
R=Q1-CINT(G1/2)#2):01-01/2 

NEXTN 

NEXTM 
PRINTCHRS (17) 3 : PLAYE, @, @, GG: RETURN 
REM 

REM Ecriture caractere 

REM 

FORM=GATO28@STEF46 

AUW=AA+M/4@:T=06 

FORN=6TOS 

IFFEEK (48687+M+(5-N))=127THENT=T+2"N 
NEXTN 

FOREAW,T 

NEXTM 

FRINTCHRS (17) 5: ZAF: RETURN 

REM 

REM SAVE, LOAD, FIN FROG. 

REM 

CLS:EN#$="CARGEN Fonctions annexes "2: GOSUR9G GE 
XM=@: YM=E 

FOKE616,6:FRINT 

FRINT'£Srave: Sauvegarde sur cassette" 
PRINT:FRINT'#Load: Chargement" 


3666 
307€ 
3166 
3110 
3126 
3136 


3135 


FRINT:FRINT'£Rietour au programme" 

FPRINT:FRINT'éF#in du programme" 

GETX$ 

IFX#="S'"THENS266 

IFX$="L'"THENSS566 

IFX$<2"F'!THENS14@ 

ENS=CHRS (14) : GOSUR9G GE : DOKE48466, 1868: DOKE (#H9C) ,1283: WAIT19:CA 


LL#COOGG 


7146 
5196 
5198 
F526@ 
3202 
7246 
5256 
326% 
5276 
3296 
3296 
35566 
33516 
33515 
3320 
5498 
355066 
5592 
35519 
3526 
5536 
5544 
5556 
5566 
3576 
5586 
3596 
F6 
5616 
5650 
6998 
7406 
7662 
7616 
7626 
7106 
7119 
7156 
7166 
7176 
7186 
7246 


IFX$="R'THENCLS: GOTO7& 

GOTOZ 160 

REM 

REM Save 

REM 

PRINT: PRINTEAS#&'"Nom du jeu "3E$"W"3;: INPUTNIJS 
FRINTCHRS (4); CHR# (17) 3 

PRINT: PRINT:PRINTES#"N PREFAREZ LA CASSETTE": FRINT 
PRINTES'"N ET PRESSEZ LA <BARRE >" 
PRINTCHRS# (4) 

GETX#$:1FX$<53" "THENSOO6 

FORN=1TOS: PRINTCHRS (11) 3: CHR$ (14) 3: :NEXTN 
PRINTCHRS# (17) 3 

CSAVENJ$, AHESGG, EHBRE7F 

CLS: GOTO:606 

REM 

REM Load 

REM 

CLS 

PRINT: PRINT: FRINTCHRS (4) 

PRINTES$"J"ES$"R ATTENTION !" 

PRINT: PRINT: PRINTCHRS# (4) 

PRINT" Apres avoir charge un jeu de caracte-"; 
FRINT'res a partir de la cassette, vous etes": 
FRINT'en mode direct. '":PRINT 

PRINT" Tapez"E#$"AGOTO 1'"E$'"@pour relancer CARGEN, " 
FRINT'ou bien chargez le programme qui vous" 
PRINT''interesse apres avoir fait *NEW°." 
PRINT:FRINT:PRINTEAS"Nom du ,jeu "3E$"W"3:INFUTNIS 
CLOADNIJ$, AR#ES59O, E#BER7F 

REM 

REM EOUCLE PRINCIFALE 

REM 

AD=#BBDG : CH=#BS5GG : XJ=T: YJ=6 

GOSUR7960 

GETX$: AS=ASC(X#) 

IFAS=490RAS=56THEN7 866 

IFAS=8THENGOTO75%46@ 

IFAS=9THENGOTO7556 

IFAS=16THENGOTO7646@ 

IFAS=11THENGOTO7656% 

IFAS=127 THENFORM=6TO286STEF46: FORN=GTOS: FOKE486897+N+M, 32: NEXTN 


: NEXTM 
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7216 
7226 
7234 
7246 
7245 
7254 
73598 
7406 
7402 
741% 
742 
7456 
7498 
754@ 
75062 
7516 
7524 
7554 
73566 
7696 
764% 
7654 
769 
7699 
7766 
7702 
7714 
7726 
7756 
775 
7755 
7768 
7774 
7798 
784% 
7862 
7816 
7826 
783 
7846 
7845 
7847 
7856 
786à 
7986 
792% 
7935 
7946 
7998 
8666 
8662 
861@ 
8626 
845@ 
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IFAS=27 THENRETURN 
IFAS=44THENGOSUR7766@ 
IFAS=48THENGOSUR775@ 
IFAS=670RAS=1STHENGOSUR2%66 
IFAS=5S2THENGOSUER7406 
GOTO7166 

REM 

REM On/0ff point matrice 
REM 

LA=48687+YM+XM: PRINTCHRS (17) 5 


IFPEEK (LA) =127 THENFOKELA, 32ELSEFOKELA, 127 
PRINTCHRS# (17) 3; : RETURN 

REM 

REM Mvts curseur matrice 

REM 

IFXM>GTHENXM=XM-1:FRINTXS3 

GOTO7186 

IFXMSSTHENXM=XM+1: FRINTXS#: 

GOT0O7166 

IFYMÉ286THENYM=YM+46:PRINTXS; 

GOTO7166 

IFYMSGTHENYM=YM-46: FRINTXS: 

GOTO7166 

REM 

REM Depict dans jeu 

REM 

IFXJSSTHENXJ=XJ-2: GOTO773S4ELSEFOKEAD+XJ+VYJ,23: XJ=37 
IFYJSOTHENYJ=YJ-46ELSEYJ=JJ(J,2):XJ=JJ(J,1) 
GOSUR796%6: RETURN 

POKEAD+XJ+YJ,23 
IFXJ<S7ANDXJ+YJEJJ(J,1)+JJ(J,2) THENXJ=XJ+2: GOTO7774ELSEXJ=3 
IFYJ<JJ(J,2) THENYJ=YJ+46ELSEYJ=0 

GOSUR7946@: RETURN 

REM 

REM Chgt de jeu 

REM 


IFVAL (X$) <>JTHENJ=VAL(X$) ELSEGOTO7146@ 
FORN=48642T048282STEF46 

POKEN, A(J) 

NEXTN 
IFXJ+YJé=JJ(J,1)+JJ(J,2) THEN785% 
POKEAD+XJ+VJ,23%:XJ=JJ(J,1):YJ=JJ(J,2):GOSUR7966 
GOSUER 10% 

GOTO7196 

REM 

POHEAD+XJ+YJ+2,23 

POKHEAD+XJ+YJ,22 

RETURN 

REM 

REM Impression du jeu 

REM 

PRINTCHRS (36) : FRINT" "3; 
FORN=6TO72STEF18 

FORI=SZ+NTOZ2+17+N 


8646 
8456 
88466 
847€ 
8986 
8496 
8199 
8206 
8262 
8244 
8216 
8215 
8226 
8225 
8226 
82564 
8246 
826% 
8498 
8506 
8562 
8505 
8516 
8526 
853@ 
8546 
85564 
8564 
8576 
8575 
858@ 
8596 
8656 
9666 
9002 
9420 
9830 
9098 
9106 
9162 
911 
9126 
9146 
9166 
9176 
9186 
9196 
9200 
9216 
19000 
19005 
1ag1e 
19026 
190350 


PRINT" "CHRS(I): 

NEXTI 

PRINT" "3 

NEXTN 

PRINT" z © 1 3" 

RETURN 

REM 

REM Dessin Matrice 

REM 

FOKE616,9:PFRINT:PRINT'"  "EAS:PRINT:PRINT 
GH=CHRS (126) :61$=" " 

GOSUR1666 

FORI=1T08:G1#=61$+G$:NEXT 
PRINTES"G"ES$"QOMATRICE"ES$"W"SPC(1)E$"Q": PRINTSFC(14)EAS$ 


FRINT" ABCDEF "SPC (35) EA$:PRINTG1$SFC(2)EAS$ 
FORI=1TO8:FRINT" "STRS&(I1)G$" "GÉSSPC(2)EAS 
NEXTI:PRINTGISSPC(2)EAS: 

RETURN 

REM 

REM Aides 

REM 

EKk=17 

FLOTKÉE, 12," AIDE" 

PLOTEÉE, 15, "FLECHES: Mouv. Matrice" 


Mouv.Jeu Car." 


On/0ff point" 
Matrice-:Jeu" 
Jeu-Matrice" 
Effac.Matrice" 


FLOTEÉK, 14," < 5% 
FLOTKÉE, 16, "BARRE 
PLOTEK, 19, "RETURN 
PLOTKK, 18, "C 
FLOTKK, 26, "DEL 
FLOTEK, 22, "1-2 Choix du Jeu" 

PLOTEÉK, 23, "ESC SAVE /LOAD/FIN" 

FOFE616, 16: FRINT:POKE617, 7: PRINTCHRS (17) 3 : RETURN 
RETURN 

REM En-tete 

REM 

DOKHE621,4796@: FPRINTCHRS (56) ENS: DOKE6&21, 48006 
RETURN 

REM 

REM INITIALISATIONS 

REM 

FORI=1TOZ2:READA(I) :READJJ(I,1):READJJ(I,2):NEXTI 
READ NJ$,J 

Eg$=" "4+CHRS$ (27) : EAS=ES+"U" 

IFPEEK (47496) =63ITHENFORN=6TO7ELSEGOTO9196 
POKE47496+N,PEEK (47688+N) : FOKE47688+N, & 
NEXT:FOKE47691,8 

RETURN 

DATA 8,9,266,9,17,166@ 

DATA STANDARD, 1 


N=669: CLS 

GETX$: PRINTXS;: 

PLOTG,@,STRS$ (PEER (N)) +" ": PLOTI4,0,STRS# (N) 
IFX$=CHRS (27) THENN=N+1 

GOTO10G0S 
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Structure et explications du programme 


"CARGEN”" est construit de façon modulaire, cinq sous-programmes 
servent à sa mise en route et à la constitution de l'écran, et huit autres 
gèrent la totalité des fonctions disponibles; l'ensemble occupe environ 
4,3 Koctets en mémoire. Dans les explications, nous respecterons l'ordre 
d'exécution du programme plutôt que celui des numéros de ligne. 
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30: Sauvegarde des pointeurs de fin de programme, au cas où un jeu 
serait chargé par CLOAD (voir 8 2.4.2). 


60 : Appel du sous prog. 9100 où sont effectuées les initialisations de 
variables et la création des deux caractères spéciaux utilisés par le pro- 
gramme. 

Le tableau A() contient des codes à afficher pour le changement de 
jeu, et le tableau JJ() les pointeurs servant à l'affichage de ces jeux. E$ 
est le caractère ESCAPE ou CHR$(27). 


* 90-200: Appel des routines de démarrage et de constitution de 
l'écran: 


9000: Gère l'en-tête affiché en première ligne d'écran. 


8000: Ces trois sous-programmes affichent à l'écran tout ce qui est 
nécessaire au programme. Le sous-prog. 8000 imprimant le jeu n'est 
appelé qu'une fois, le changement de jeu s'obtenant par l'impression 
des codes adéquats dans la troisième colonne de l'écran. 


* 7000-7250: Boucle principale du programme; le clavier est lu, et en 
fonction de la touche appuyée le branchement est effectué vers les 
routines suivantes: 


7400: Trace ou efface un point de la matrice agrandie, en fonction de 
l'état précédent de ce point. 


7500: Gère les déplacements du curseur à l'intérieur de la matrice à 
l'aide des quatre flèches; YM est l'ordonnée et XM l'abscisse du 
curseur à l'intérieur de la grille. 


7700: Gère les déplacements du curseur spécial (qui est en fait une 
zone colorée) dans le jeu de caractères: XJ et YJ sont l'abscisse et 
l'ordonnée de ce curseur. 


7800: Opère le changement de jeu, par simple modification des codes 
placés au début de chaque ligne où celui-ci est affiché. NJ contient le 
N° du jeu (1 ou 2), et le tableau A) le code à imprimer. Le tableau JJ() 


contient les limites d'affichage (n'oublions pas qu'il n’y a que 64 
mosaïques graphiques). 


— 2000: Calcul de l'adresse de début (AA) du caractère pointé par le 
“curseur jeu”, en fonction de la position de celui-ci (PO, elle-même 
calculée en fonction de XJ et YJ) et du jeu affiché (J=1 ou 2). 


— 2100: Lecture des octets constituant le caractère pointé par le 
“curseur jeu” dans les adresses correspondantes, puis conversion en 
binaire afin de dessiner chaque ligne de la matrice. AW est l'adresse de 
début du caractère. 


— 2200: Effectue l'opération inverse: Lit chaque ligne de la matrice, la 
convertit en décimal, puis place chaque nombre aux adresses du carac- 
tère pointé par le ‘curseur jeu”. 


— 3000: Fonctions annexes, Sauvegarde et Chargement d'un jeu de 
caractères sur cassette. 


Note: De nombreuses REM ont été incluses dans le programme, dans un 
souci de clarté. Vous pouvez évidemment supprimer purement et simple- 
ment les lignes du type 1098, 2002, etc. pour vous éviter du travail de 
frappe, mais conservez les Numéros de ligne ‘’ronds”’: 2000, 3000, 
8000... car de nombreux GOTO et GOSUB y font référence. 


3.8.2. Le programme ’ GENETEX ”” 


Programme de traitement de textes articulé autour d'un menu principal 
proposant huit options différentes, Genetex est également conçu de façon 
modulaire : Chaque option du menu constitue pratiquement un programme 
indépendant exécutant une tâche précise. Son occupation-mémoire est de 
9 Koctets environ. Le Menu principal vous donne le choix entre: 


Ecrire un Nouveau texte 


Demande la longueur de ligne désirée (jusqu'à 65 colonnes), et passe en 
mode “saisie”; vous pouvez taper du texte ‘’au kilomètre”, c'est-à-dire 
sans vous soucier des passages à la ligne. Les mots trop longs ne sont pas 
coupés en fin de ligne, et le texte est mémorisé dans un tableau de chaînes 
au fur et à mesure de son entrée; celui-ci peut faire jusqu'à 600 lignes de 
long. 
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Ajouter du texte 


imprime en haut de l'écran les cinq dernières lignes du texte en mémoire, 
et passe en mode “saisie”. 


Visualiser le texte 


Permet de parcourir celui-ci rapidement en affichant les numéros de ligne. 


Modifier le texte 


De loin l'option offrant le plus de possibilités, elle autorise : 


— L'insertion d'un nombre quelconque de lignes blanches. 

— La réécriture totale ou partielle d'un ligne. 

— La destruction totale ou partielle d'un ligne. 

— Le réalignement d'un paragraphe sur les marges choisies après sa 
modification. 


Imprimer le texte 


Procède à l'impression sur papier du texte en mémoire, en gérant le 
centrage, l'interligne, le nombre de copies, les sauts de page, etc. 


Sauvegarde et relecture du texte sur K7 


Il serait évidemment gênant de perdre un texte sitôt l'ordinateur éteint ; ces 
deux options autorisent la sauvegarde du tableau sur cassette ainsi que son 
rechargement par la suite. 


Chargement d'un jeu de caractères 


Cette option opèrera le chargement d'un jeu de caractères personnel éla- 
boré par CARGEN, par exemple un AZERTY accentué pour une présen- 
tation améliorée. 


REMARQUE: 


La routine de sauvegarde/lecture du tableau de chaînes sur cassette située 
entre les lignes 10000 et 10310 est absolument identique à celle 
présentée au paragraphe 2.4.2. Si vous l'avez déjà tapée, même avec des 
numéros de ligne différents, chargez-la avant de commencer à écrire le 
programme, cela vous évitera d'avoir à la retaper. Il suffit ensuite de modi- 
fier la ligne 110 qui appelle la routine en y mettant le numéro de ligne 
correct. 
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En ce qui concerne les REM, ce que nous avons dit à propos de CARGEN 


reste 


1 RE 
18 C 
26 K 
22 KR 
56 I 
46 G 
106 

119 

12& 

997 

998 

999 

1a40@ 
1962 
1064 
1406 
1968 
1416 
1926 
1430 
1646 
1056 
1966 
1970 
1686 
18964 
1196 
1116 
1134 
1146 
1156 
1250 
126@ 
1276 
1298 
13506 
1302 
1316 
1326 
1350 
154@ 
1350 
136& 
1396 


entièrement valable. 


M xx GENETEX ** 
LS 
EM Gestion pointeurs 
EM 
FDEEK (#90) >2E4THENDOKE#9C, DEEK (#46) ELSEDOKE#466, DEEE (#90) 
RAB:HIMEM4666@ 
GOSUR94A40G 
GOSUB10006@ 
GOTO8406 
REM 
REM *%% SOUS-FROGRAMMES #*+% 
REM 

REM NOUVEAU TEXTE 

REM 

REM 

REM Saisie variables 

REM 

M$="NOUVEAU TEXTE!" : GOSUR8866 

CLS: FOKE616, 4: FRINT 

PRINT'ATTENTION: Si un texte se trouve en" 
PRINT'memoire, il sera efface.":PRINT 
PRINT'£RETURNi= suite, <E6C>= retour au menu": PRINT 
GETX$ 

IFXH=E1STHEN RETURN 
IFXH=CHRS (13) THEN1166@ 

GOTO1466 

FRINT'Longueur des lignes, en nombre de" 
INFUT'caracteres (Max.=65)"iLL 
IFLL:650RLL<10@THENI11& 
IFLL3S9THENFI=2ELSEF1=1 

GOSUR7@%6: CLS 

T$=""s:CelilelsLS=LL-4: P2=1 

GOSUR994€ 

FOÉER#206C, 127 

REM 

REM Boucle de saisie 

REM 

CH=KEYS: IFCH=""THENIS16 

AX=ASC(C#) 

IFAX=13THENI GG 
IFAX=127ANDC>1THENFPRINTCOS: :CzC-1: TS=LEFTS(TS,C-1) : GOTO1:5:66@ 
IFAX=27 THEN RETURN 

IFAX=2ATHENFRINTCS; 

IFAX232THEN1316 
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1398 REM 

1496 REM Impression car. 

1462 REM 

1416 IFC=LSTHENFING 

1426 IFC=LLTHEN1566 

1436 PRINTC#: 

1446 TH=T#+CH:C=C+1 

1454 GOTO1366 

1498 REM 

159 REM Fass. a la ligne auto 
1502 REM 

1595 IFAX=S2THENCS=CHRS (15) : GOTO164û 
1516 C1=C-1: PRINTCHRS (8); 

1526 IFMID$(T$,C1,1)=" "THEN1556 
1536 C1=C1-1:PRINTCHRS (8) ; 

1546 GOTO1526 

1554 PRINTCHRS(9)LEFTS$(ES$,C-C1)3 
1566 T$(L)=LEFTS(TH,C1):L=L+1: TÉ=RIGHTS (T$,C-C1-1) : PRINTCHRS (17) 
19570 PRINTT$3 : C=LEN(TS$) +1 

1586 GOTG1419 

1598 REM 

1646 REM Fass. a la ligne manuel 
1662 REM 

1614 TH=TS+PFAS: FRINTFAS: 

1646 TH(L)=THh:LeL+1: Th=" "si C=l: PRINTCS 
1654 GOTOIFUE 

1898 REM 

199% REM AJOUTER DU TEXTE 

1902 REM 

1914 GOSUR746@: CLS 

1956 IFL=OTHENFOF: GOTO86466 

1946 IFLYI1GTHENLI=L-1GELSEL1=1 
1956 FORN=LITOL-1 

1964 PFRINTTS(N) 

197 NEXT 

1986 PRINTT$(L): 

1994 RETURN 

1999 REM 

24G@ REM MODIFICATIONS 

2662 REM 

2614 M$="MODIFICATIONS": GOSUR8866: CLS 
2626 GOSUER874@ 

20539 GOSUR7266@ 

26056 GOSUR2966 


2064 T$="":C=1 

2676 FOKE#20C, 127 

2497 REM 

2098 REM Eoucle principale modif 
2699 REM 


2196 PLOTI,18,'"LIGNE No"+STR#(DL)+"  " 
2116 X$=KEVS: IFX$=""THENZII1GELSEAX=ASC(X#S) 
2126 IFAX=12THEN23566 "Insert ligne 
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2136 
2146 
2156 
2155 
2157 
2166 
2165 
2176 
2186 
2194 
2195 
2198 
224€ 
2202 
2214 
2220 
2250 
2248 


2256 


2252 
2264 
2270 
2286 
2298 
23006 
2502 
23514 
2326 
2356 
2326 
2346 
2356 
236@ 
2370 
2586 
2396 
2395 
27398 
240€ 
2462 
2416 
242@ 
2454 
244 
2498 
254€ 
25062 
2516 
2526 
2536 
2546 
2556 


IFAX=4 THEN2466 "Destr. ligne 

IFAX=18THEN2560@ "Kkestr. parag 
IFX$=E1STHENRETURN: Retour Menu 

IFAX=26THENFRINTX#3 

IFAX=STHENTS (DL) =LEFTS$ (T$ (DL) ,C+(C%1) ) : GOTO2656 
IFAX=1@ANDDL<LTHENDM=DL : DL=DL+1:GOTO2645 
IFAX=9ANDC<LLTHEN2256 

IFAX=1 1 ANDDL > 1 THENDM=DL : DL=DL-1: GOTO2454 
IFAX=127ANDC>1THENFRINTX#3 :C=C-1: TS=LEFTS(T$,C-1) : GOTO2116 
IFAX=13THENTS (DL) =T#$+FAS:C=1:GOTO2056 


IFAX£SS2THEN2116 

REM 

REM Impression caractere 
REM 


IFC=LLTHENZ2116@ 
PRINTX#5 : TH=TS+X6:C=C+1 


GOTOZ11@ 

REM 

REM Depilct Horiz. Curseur 
REM 


T$=T$+MIDS (T$ (DL) ,C, 1) 

PRINTX$5 : IFC=SSTHENFOKHE617,2 

C=C+1:GOTO2116 

REM 

REM Insert lignes 

REM 

CLS: PRINT: PRINT: PRINT 

INFUT "Combien de lignes a inserer "SIN 
IFIN+L:46@@0/LL+3STHENFRINT:FRINT" PLUS DE FLACE !"3FRINT:GOTO 


FORN= (L+IN) TO(DL+IN)STEF-1 
T$ (N)=TS (N—IN) 

NEXT 
FORN=DLTODL+IN-1 
T$(N)=PAS 
NEXT:L=L+IN 
C=1:GO0OTO2456 

REM 

REM Destr liynes 
REM 

FORN=DLTOL-1 
THIN) =TS (N+1) 


NEXTsL=L-1 

C=1:GOTO2656 

REM 

REM Refonte texte 

REM 

U=6: CLS: FRINT: FRINT:PFRINTES"L REFONTE EN COURS" 
M=DL 

N=LEN (T$ (M) ) +2: A=6:TI=LENCTS (M+1) ) 

REFEAT 

N=N-— 1 
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256464 
2576 
2586 
2596 
26@ 
2605 
26416 
2626 
2656 
2635 
264% 
2656 
Z666 
2665 
267& 
2684 
2698 
294€ 
2961 
2902 
2944 
29%6 
2916 
2915 
2917 
2926 
2954 
2946 
2954 
2966 
299% 
2998 
F6 
36062 
3004 
350066 
5616 
5626 
5196 
75116 
3126 
35124 
35126 
5130 
35146 
37156 
F155 
3166 
3176 
3197 
35198 
35199 
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UNTILMIDS (T$(M),N,1)<5" "ORN=1 


FL=(LL-N) 

=@ 

REFEAT 

C=C+1:IF MID#(T$(M+1),C,1)=" "THENA=C 
IF MIDS (TS (M+1),C, 1) =FASTHENA=C+1 
UNTILC:PL 


IFA=GTHENZ6S5% 

T$ (M) =LEFTS (TS CM) , ND +" ALEFTS(TS(M+1),A-1) 
IFASTITHENA=TI 

TH (M+1) =RIGHT$ (TS (M+1),Ti1-A) 

M=M+1 

IFRIGHTS (TS (M-1),1) =FASTHENC=1:T$ (M) =FAS:GOTO268& 
IF RIGHT#&(TS (M), 1) =FASTHENC=1: GOTO2686 


GOTO25356 
IFUTHENZ24S@ELSEU=- 1: GOTO2524 
REM 

REM Affichage lignes 

REM 


IFC=1THENZ2916@ 
IFC£E=LEN (TS (DM) ) THENTD$&=RIGHTS (T$ (DM), (LEN (TS (DM) ) -C) +1) ELSETD 


T$ (DM) =T$+TD$ 

CLS: PRINT: IFDL-8/F1<1THENMI=@ELSEMI=DL-6/F1 
IF (DL+4/P1) €LTHENMA= (DL+6/F1) ELSEMA=L 
FOKE616, 1: FRINT 
FORN=MITODL-1:FRINTTS(N):NEXT 
FO=FEEK (616): PRINTTS$ (DL) 
FORN=DL+1TOMA: PRINTTS (N) :NEXT 

FPOKE616,P0-1: PRINT 


FOKHE6&17,2 

DM=DL : RETURN 

REM 

REM IMPRESSION 

REM 

REM Saisie variables 
REM 

M$=" IMPRESSION" 
GOSUR8866: CLS 


POKE616,5:FRINT 

FRINT'"'Marge (Max="67-LLl") Centre=19@ !"; 
INPUT MG 

IFMG=166THENMG= (78-LL) /2 
IFMG+67-LLTHENMG=67-LL 


PRINT: INFUT'"Simple/double interligne (1/2) "SIT 
PRINT: INFUT'"Ligne debut "iLi 
PRINT: INFUT"'Ligne fin "sL2 


IFLEZ#LTHENLEZ=L 
FRINT:INFUT'"'Lignes/page "353FF 
PRINT: INFUT'"'Nombre de copies "s5NC 
REM 

REM Boucle d'impression 

REM 


5200 
5219 
3224 
3279 
324@ 
5256 


T$ (N) 


3264 
3270 
3286 


t, Fa 


3290 
3300 
3310 
3320 
3330 
3346 
3350 
3998 
4000 
4062 
4018 
4020 
4108 
4195 
4118 
4126 
4130 
4149 
4150 
417à 
4190 
4208 
4210 
4220 
4230 
4246 
4998 
5000 
5002 
5016 
5012 
5020 
5025 
5030 
5040 


PRINT 


507€ 
398€ 
50696 


GOSUR7306: CLS 
FORM=1TO NC 
GOSUER 3356 
N=L 1 

REPEAT 


PRINTP$:LPFRINTSPC (MG) PS$ 
IFIT=2THENLFRINT 


e 

N=N+1 

UNTIL NiLZ OR X$=E1%$ 
LPRINTCHRS& (12): 
NEXT M 
RETURN 


ue us ne ne + (À 


REM 

: FORI=ITO(8éS-PF) /2: LPRINT:NEXT : RETURN 
REM 

REM VISUALISATION 

REM 

M$="VISUALISATION" : GOSUR8846: CLS 

GOSUE 8766 

GOSUE7 196 

CLS: PRINT 

IFDL< 10RDL LTHENDL=1 

N=DL 

REFEAT 

PRINTTS&(N) 

N=N+1 

UNTILN=DL+29/P10RN=L+1 
PLOT2,22,"LIGNES "+STRS$ (DL) +"-"+STRS (N) +" 
GETX$ 

IFX#H=CHRS$ (16) THENDL=DL+16/F1:G0T04165 


IFX#=CHRS (11) THENDL=DL-16/F1:GO0OT04165 
IFXH=CHR$ (27) THENRETURN 

GOTO4196 

REM 

REM SAVE /LOAD 

REM 

REM Save 

REM 


CLS: IFX$="L'"THENS206 
IFLSOTHEN POP: GOTO8666 


IFRIGHTS (TS (N), 1) =PASTHENFÉ=LEFTS (T# (N) , LENCTS& (N))—-1) ELGEFS$= 


IFN/FF/IT=INT (N/FF/IT) THENLFRINTCHRS (12) 3 : GOSURS3S6: REM Chg 


M$="SAUVEGARDE EN COURS": GOSUR8846: POKE48012,@:POKE616,9:FPRINT 
T$(G)=RIGHTS(STRS (L) ,LEN(STRS$ (L))-1) +RIGHTS (STRS (LL) ,2) +RIGHTS$ 
(STR#(F1),1) 
5464 PRINTCHRS#(4)E$"J METTEZ LE K7 EN ENREGISTREMENT": PRINTCHRS (4): 


PRINT" ET PRESSEZ UNE TOUCHE" 
GETX$#: CLS: POKE48612,12 
POKE#67, 6: CALLHE9A2,T$ 
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5106 
5198 
52606 
J202 
5216 
322Q 
D236 
524Q 
9294 
5269 
J270 
5286 


T$(®) 


52964 
5306 
6998 
764€ 
70062 
7416 
7612 
702€ 
7630 
76046 
7856 
76066 
7470 
7486 
7098 
7196 
7102 
7116 
71359 
7146 
715% 
7198 
7266 

242 
7214 
7226 
7230 
724% 
7250 
726% 
727@ 
7286 
7296 
7298 
7306 
73502 
7316 
RINT 
7320 
7350 
7997 
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RETURN 

REM 

REM Load 

REM 

M$='"CHARGEMENT EN COURS": GOSUR8840:POKE48412,6:FOKE616,9:FRINT 
FRINTCHRS$(4)E#"J DEMARREZ LA CASSETTE" :PRINTCHRS (4) : PRINT 
FRINT" ET FRESSEZ UNE TOUCHE" 

GETX$: CLS: FOKE48012, 12 

GOSUR9966 

FOKE#67, Os: CALLHEB9AS,TS$ 


NELEN (TS (@) )—3 

LeVAL (LEFTSCTS#(@) ,N)) sLLE=VAL (MIDS (TH (@) ,N+1,2)) : F1=VAL (RIGHTS ( 
51)) 
LS=LL-4:T$e"tsCelsP2=l: T$(@)="" 
RETURN 

REM 

REM 7066-74GQG=TEXTES D'AIDE 
REM —-———— on nn 
REM Saisie 

REM 
POKE616,21:FRINT:FOKE62Z5, 24 


PRINTES"VEMARGE"TAE (LL+5) "Ste g'W" 
IFLLESOTHENFRINTCOHRS (11)E1$"V" 
FOKE616,23:FRINT:PRINT'-RETURN fin de paragraphe" 
PRINT'"-DEL efface le caractere precedent": 
PRINT'-ESCAFE retour menu" 

RETURN 

REM 

REM Visu 

REM 

FOKRE616, 223 FRINT:PRINTEÏS$&"V'": PRINT 


PRINT'£"5: qu <'CHR$ (126) "5 Deplacement" 
PRINT'£ESC: Retour Menu" 

FOFE&25, 21:RETURN 

REM 

REM Modi f 

REM 

POÉE616,18:FRINT:FRINTEIS$& "UV": FRINT 


PRINT'ES SE UCHRS (126) "> Balayage ecran" 
PRINT''-% <DEL+ HBalayage ligne" 

PRINT'£CTRL Ex Effacement -:Fin de ligne" 
PRINT'£ECTRL Li Insertion lignes vides" 
FRINT'£CTRL Di Destruction ligne" 
PFRINT'ECTRL R5 Restructuration paragraphe" 
FRINT"'<ESC: Retour Menu": 
FOKE&ZS, 18: RETURN 

REM 

REM Impression 

REM 

FOKE616, 24: FRINT:FRINTE1$"V'"E1S$"G ALLUMEZ L'IMPRIMANTE":P 


FRINT'<ESC Retour Menu“ 
FOKHE6ZS, 23: RETURN 
REM 


7998 
7999 
ÉICIS Te) 
84062 
8644 
8066 
8416 
8426 
LRT 
9106 
8116& 
8126 
8176 
9146 
8156 
816% 
8170 
81896 
81964 
2464 
8216 
8226 
82356 
8246 
8266 
8276 
8286 
8294 
83:66 
8498 
8546 
6562 
851% 
852% 
8536 
8546 
8536 
8564 
8746 
8716 
8724 
87:36 
8796 
8846 
8842 
8816 
1808 
88264 
8898 
9€ 
9062 
9416 


REM ! ; 
REM ! MENU FRINCIFAL ! 
REM ! ! 
REM 
REM 

Mb=M1S$: GOSUERRB46 
POKEH#20C, 255: POKEH#26F, 27 


CLS: FOKE#268,5 

FRINTCHRS (4) : PRINTES#"J MENU FRINCIFAL" 
FRINTCHRS (4) : PRINT: FRINT 

FRINT" Nouveau texte" 

FRINT" éArjouter au texte en memoire" 
PRINT" <Vrisualiser le texte en memoire" 
FRINT" <Miodifier le texte en memoire" 
FRINT" <limprimer le texte en memoire":PRINT 
FRINT" £Srauvegarder le texte sur K7" 
FRINT" éLrire un texte sur K7" 

FRINT" “Charger un jeu de caracteres" 
PRINT: PRINT" VOTRE CHOIX ?'"'3:GETXS 


IFX#$='"N" THEN GOSUER1666 

IFX$="C'"THENSSAE 
IFX$="L'ORX#="S"THENGOSURS66E 

IFL=@THENSAHEE 

IFX#$="M" THEN GOSURZ266%6@ 

IFX$="I" THEN GOSUR3FGG6 

IFX$="V" THEN GOSUBR4666 

IFX#="A" THEN GOSUR19@6@: GOSUR1276 

GOTOBÉ4@ 

REM 

REM Load jeu de CHR 

REM 

M$="Load Jeu":GOSUR 8846%:CLS 

PRINT: PRINT: PRINT 

PRINT'Quand le jeu est charge, tapez GOTO 1" 
FRINT'pour relancer le programme. ":FKRINT:FRINT 
INFUT'NOM DU JEU DE CHR : "5;NJ$ 

CLOADNI$, AHESOO6,E#RER7F 


REM 

FOKE616,5:FRINT 

FRINT'Ligne de debut (MAX="L") "3:INPUT DL 
CLS: RETURN 

REM 

REM En-tete 

REM 

DOFE621,4796@: PRINTCHRS (36) CHR$ (14) M$: DOKE6Z1, 49006: DOKHE48600, 
RETURN 

REM 

REM Initialisations 

REM 


M1$="GENETEX -— TRAITEMENT DE TEXTES "+CHR$&(96)+" BVRF'':M$=Mi$ 


:GOSUR 8860 


99 


9426 PLOT8,16,"UN PEU DE PATIENCE !" 

90504 ES$=" ( 

9044 E1$=CHR$ (27) :Eb=" "+E1$: PAS=CHRS (126) 

9650 REM 

95346 READAD 

9316 IFAD=6THEN9860 

9324 FORN=GTO7 

9330 READDA: FOKHEAD+N, DA 

93546 NEXT 

9354 GOTO9564 

9796 DATA 47088,8,68,8,8,42,28,8,6 

9719 DATA & 

9804 RETURN 

9904 REM Dim tableaux 

9992 REM 

9916 DOKE#AG, DEEK (#9E) 

9924 DIMT#(666) 

9934 DIMI$(15) 

996% RETURN 

1006 REM Save/Load tableau 

10019 ST=#B800Q 

190724 READ DA:REFEAT 

19076 POKEST, DA: ST=ST+1 

19644 READDA:UNTILDA=SS 

14956 DOKEHB9A2, HOA4C: DOKE#HE9AA4, #4CR8: DOKEHER9A6G, #RG58 

19064. RETURN 

161006 DATABS,85,85,085,35,57.68,54,56,85,32,11,185,8,52,214,184,32,1 
86,2:6,169 

19119 DATAS7,32,198,229,165,51,32,198,229,165,52,32,198,229,352,258, 
184,352,167 

19124 DATA229,56,46,16,3,32,55,184,352,4,232,40,96,160,4,177,1,24@,2 
3,1796,166,2 

16134 DATAI77,1,153,208,0, 1:6,248,248,232,202,246,8,177,209,32,198, 
229,2006,208 

19146 DATAZ45, 52,195,184,144,222,96,32,149,215,32,11,185,8,32,214,1 
84,32,150 

19154 DATAZ2T6,32,48,250,201,37,208,249,32,48,2350,135,51,32,48,230,1 
33,52,160 

1016Q DATA2,177,206,197,51,240,177,206,229,52,176,6,32,4,252,76,131 
5196, 32,238 

1017 DATA184,352,235,228,36,46,16,3,32,155,184,32,4,2352,40,96, 16, @ 
1177,:1,246 

19186 DATAZ8,32,240,212,176,272, 166, 0,202,240,8,32,48,236,145,249,2 
60,208, 245 

19194 DATA166,2,185,208,0,145,1,136,208,248,32,195,184,144,217,986,2 
4,169,3,161 

102% DATA1,133,1,168,144,2,250,2,165,2,196,97,229,98,96,32,202,234 
:32:24,185 

14214 DATA166,3,177,266,170,136,177,206,235,1,176,1,202,135,51,134, 
92:96,24,165 

19220 DATA246,101,51,133,97,165,207,101,52,135,98,166,4,177,206,72, 
246,209, 133 


100 


19236 DATA9S, 132,96,133,1,132,2,96,32,222,0,201,44,240,3,76,228,207 
,76, 226,0 

19249 DATA162,0,32,232,0,134,39,133.1806,32,232,0,32,134,209,176,6,3 
2,4,232,76 

19250 DATA228,207,162,0,134,40,134,41,32,226,0,144,5,22,134,209, 144 
.11,170,32 

19269 DATA226,0,144,251,32,134,209,176,246,201,36,208,6,169,255, 133 
,49,208, 12? 

19270 DATA2061,37,208,15,169,128,133,41,5,186,1233,180,138,9,128,170, 
32,226, 

19286 DATA134,181, 166,158, 165,159, 134,206, 133, 207,197,161,208, 4,728 
,169,240,31 

19294 DATA160,0,177,206,200,197,180,208,6, 165, 181,209,206,246,14,2@ 
9,177,206 

19306 DATA24,101,206, 170,206, 177,206. 101,207,144,215,56,96,32,4,232 
,162,42,76 

19310 DATA13S, 196,85, 33 


Fonctionnement du programme 


— 30: Mémorisation des pointeurs de fin de programme (pour le cas du 
chargement d'un jeu de caractères). 


— 100-120: appel des sous-programmes de mise en route. 
Mise en route 


— 9000: Initialisations : M1$ est le message placé en en-tête sur la ligne 
réservée. Création du caractère ‘flèche vers le bas”, qui indique les fins 
de paragraphe et se trouve au code 126 (PAS). 


— 8800: Impression sur la ligne réservée du message contenu dans M$. 


— 10000: Chargement à la place du jeu de caractères graphiques de la 
routine en langage machine gérant la sauvegarde et relecture des 
textes sur cassette. 


— 8000-8300: Menu principal. Celui-ci effectue l'aiguillage vers les 
divers sous-programmes, et il faut y retourner pour passer d'une fonc- 
tion à une autre. Le clavier est mis automatiquement en majuscules 
pour la saisie des commandes. 


Nouveau texte 


— 1000-1150: Nouveau texte; saisie et initialisations de ses pointeurs et 
variables : 


LL : Longueur des lignes. 
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T$ : Ligne en cours de frappe. 


T$() : Tableau, contenant l'ensemble des lignes du texte. 

C : Numéro de colonne du caractère en cours de frappe à l'inté- 
rieur de la ligne. 

L : Longueur du texte déjà tapé, ou N° de la dernière ligne. 

LS : N° de colonne où intervient la sonnerie. 

PT _: Pointeur déterminant si une ligne de texte est plus ou moins 


longue qu'une ligne d'écran (LL>38 ou LL<38). Utilisé par les 
sous-programmes ‘Ajouter du texte” et Modifications”. 


— 1270: Passage automatique du clavier en minuscules pour la frappe du 
texte. 


— 1300-1390: Boucle principale en mode ‘saisie’. C$ est le caractère 
tapé. 


— 1400-1450: Gère l'impression du caractère, l’ajoute à T$, incrémente 
C et actionne la sonnerie trois colonnes avant la fin de ligne. 


— 1500-1580: si le dernier caractère de la ligne n'est pas un espace le 
mot est considéré comme trop long; il est relu en arrière jusqu'à trou- 
ver un espace (position C1), puis soustrait de T$. La ligne obtenue est 
chargée dans T$(L), et le bout de mot extrait dans T$. Le curseur 
passe à la ligne suivante, où le nouveau T$ est imprimé. Enfin, le 
curseur se place à la fin de celui-ci, position d'affichage du prochain 
caractère. 


— 1600-1650: Passage manuel à la ligne suivante (fin de paragraphe), et 
impression du symbole de fin de paragraphe. 


Ajout de texte 


— 1900-1990: Affiche les dix dernières lignes du texte, et va à la section 
“saisie”, comme pour un nouveau texte (1270—); Le branchement 
s'effectue à partir du menu (8290). 


Modifications 
— 2020-2030: Impression de l'en-tête et du texte d'aide. 


— 2050: Saisie du numéro de la ligne à corriger (8700), puis appel de la 
routine d'impression de celle-ci avec les cinq précédentes et suivantes 
(2900-2990). Le curseur peut ensuite être déplacé dans le texte et 
dans les quatre directions avec les flèches. 


DL : Numéro de la ligne où se trouve le curseur. 
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P1,MAMI: Pointeurs gérant l'impression des lignes plus longues 
qu'une ligne d'écran. 

PO : Position verticale du curseur à l'écran. 

DM : Mise en mémoire du N° de la ligne en cours, pour les 
déplacements verticaux. 


2100-2195: Boucle principale de saisie du texte modifié et des carac- 
tères de contrôle des fonctions spéciales. 


2200-2230: Saisie-impression d'un caractère. 

2250-2280: Gestion des déplacements du curseur dans la ligne. 
2300-2395: Insertion de IN lignes vides. 

2400-2440: Destruction de la ligne où se trouve le curseur. 


2500-2680: Si des mots ont été supprimés sur des lignes, reformate le 
paragraphe de manière à ce que chaque ligne contienne le maximum 
de mots possible. 


2900-2990: Ce sous-programme réaffiche l'écran chaque fois qu'on 
change de ligne, permettant de tenir compte des modifications 
survenues. 


Impression 


3000-3170: Saisie des paramètres d'impression. 


MG : Marge gauche. 

IT __: Simple ou double interligne (1 ou 2). 

L1 : Première ligne de la portion de texte à imprimer. 

L2 : Dernière ligne à imprimer (Si L2>longueur du texte, celui-ci est 
imprimé jusqu'à la fin). 

PP _: Nombre de lignes par page. 

NC : Nombre de copies à effectuer. 


3200-3330: Boucle d'impression. 


Note : Cette routine fonctionne avec tous les types d'imprimantes. 
P$ : Ligne à imprimer. 
N : Numéro de la ligne à imprimer dans T$(). 


3250: Suppression du caractère PAS (fin de paragraphe-flèche vers le 
bas) avant impression. 


3280: Commande le changement de page lorsque le nombre correct 
de lignes y a été imprimé. CHR$(12) est le code de saut de page sur la 
plupart des imprimantes. 
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— 3350: Routine imprimant des lignes blanches en haut de chaque 
page, pour y centrer le texte en fonction de PP. Si vous utilisez du 
papier de 12 pouces, changez le (65-PP) en (70-PP). 


Visualisation du texte en mémoire 


— 4000-4240: Affiche le texte par blocs de 20 lignes (ou dix lignes si 
elles sont plus longues que 38 car.), avec leurs numéros. 


Sauvegarde, Chargement d'un texte 


— 5040: Charge T$(0) avec les paramètres du texte, sa longueur (L), la 
longueur des lignes (LL) et le pointeur P1. 


— 5000-5060: Exécute la sauvegarde du tableau T$ en utilisant la 
routine en langage-machine implantée par les lignes 10000-10310. 


— 5200-5260: Procède au chargement de T$() en mémoire à partir du 
magnétocassette. 


— 5280: Reconvertit en variables les paramètres constituant T$(0). 
Note : Si un problème se pose au cours de la lecture, le programme 


sera perdu et il faudra le recharger également. 
Textes d'aide 
— 7000-7330: Affichage de petits textes d'aide (4-5 lignes) dans une 
zone réservée en bas d'écran. ll y a un texte par sous-programme. 
Chargement d'un jeu de caractères 


— 8500-8560: Effectue le chargement d'un jeu de caractères enregistré 
sur K7, en particulier les jeux élaborés par CARGEN. 


— 8800: Dimensionne l'écran pour récupérer la ligne du haut, y imprime 
l'en-tête contenue dans M$ (différente pour chaque sous-programme), 
puis le remet à sa taille normale. 
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4 


Le graphique 
haute-résolution 


4.1. Introduction 


En plus des modes TEXT et LORES, ne permettant de dessiner qu'avec des 
caractères déjà formés, ORIC dispose d'un mode graphique haute résolu- 
tion de 240 par 200 points adressables individuellement. Tout l'écran est 
accessible, même les deux colonnes et la ligne normalement interdites en 
mode texte. 


Les huit couleurs sont toujours utilisables, mais on ne peut pas définir 
séparément la couleur de chaque point : Celle-ci est obtenue par un attribut 
placé dans une “zone” rectangulaire, dont la dimension minimale est de un 
point de haut par six points de long. L'attribut choisi est actif pour tout ce 
qui s'affiche à droite de cette zone, rappelant ainsi les codes ESCAPE en 
mode texte (voir 88 3.3.-3.4): les attributs sont d'ailleurs exactement les 
mêmes. 
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4.2. 


Nous verrons dans cette partie comment exploiter toutes les commandes 
du graphique, mais aussi comment créer celles qui n'existent pas. 


Organisation-mémoire du graphique 


En mode texte, nous avons vu que chaque case de l'écran occupait un 
octet, méthode qui serait impossible en graphique s'il en était de même 
pour chaque point: Il ne faudrait pas moins de 240x200=—48000 octets 
pour stocker l'écran, c'est-à-dire la totalité de la mémoire ! Une autre 
méthode est donc utilisée qui consiste à grouper les points horizontale- 
ment, six d'entre eux constituant un octet. De cette manière, l'écran 
“tient” dans 200x240/6—8K. ce qui est déjà beaucoup plus raisonnable. 


Le dessin déterminé par un octet est l'image exacte de sa valeur binaire, un 
point ‘’allumé”’ (couleur 1°’ plan) valant 1 et un point ‘’éteint”’ (couleur 
fond) zéro. La valeur décimale de chaque octet est trouvée selon le principe 
déjà vu au paragraphe 3.7.2, utilisé pour le codage des caractères. 


On sait qu'un octet est constitué de 8 bits, mais ORIC n'en utilise que 6 
pour coder le graphique: les bits 5 et 6 (poids 32 et 64) de l'octet détermi- 
nent si celui-ci doit être interprété comme un dessin ou comme un attribut: 
Si les deux sont à Oil s’agit d'un attribut, si l’un des deux est à un c'est un 
dessin. (Voir aussi les commandes FILL et PATTERN, 8 4.3.1). 


Adresses écran 


Abscisse-> |[012345167891011 226—232| 233 —- 239 


Ordonnée 













J 

O 40999 
CESSE NRNENTIS FSERPENEENNEEENANEES 
(nn NT 
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On trouvera l'adresse-mémoire de l'octet codant un groupe de points par la 
formule suivante, où Y est l'ordonnée du groupe et X l'abscisse de 
n'importe lequel des six points: 


<Adresse >=—40960+Y+40+X/6 


Le Memory-map en haute résolution 


L'écran graphique occupant plus de place en mémoire que son homologue 
normal, le memory-map en est légèrement modifié : 


«— ÆFFFF (65535) 


«— #C000 (49152) 
«— #BFE0 (49120) 
«— #BF68 (49000) 
«— #BF3F (48959) 


GRAPHIQUE 


«— #A000 (40960) 

Jeu de caractères en #26,#27 (621,622) 
alternatif (graph) 

«— #9C00 (39936) 


Jeu de caractères 
standard (ASCII) 


«— #9800 (38912) 
«— HIMEM 
IDENTIQUE en #A6,#A7 (166,167) 


AU MODE TEXT 0 à HIMEM 





Nous voyons que trois lignes de texte sont disponibles en bas d'écran pour 
des commentaires ou explications, ou pour lister des lignes de votre 
programme. Celles-ci ne sont pas complètement jointives. avec la zone 
haute-résolution, une quarantaine d'octets restant libres. Leur adresse de 
début est 4#BF68 (49000), toute la zone comprise entre celle-ci et la fin de 
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4.3. 


l'écran est gérée comme en mode TEXT: Scrolling en bas d'écran, efface- 
ment par CLS etc... 


En pratique, nous n'agirons pas sur les jeux de caractères en mode 
graphique (c'est beaucoup plus simple en TEXT), et les limites de l'écran 
n'ont besoin d'être connues que si on veut le sauvegarder sur cassette ou 
en faire une copie sur imprimante (hardcopy), méthode présentée au para- 
graphe 4.4. 


Pour sauvegarder l'écran sur cassette, il faut être en mode HIRES puis 
taper: 


CSAVE’'"< Nom > ”,A #A000,E #BFEO [,S] 
Et pour le recharger: 
CLOAD l['’< Nom > ”’1,A0,E0, [,S] 


Enfin une variable-système, #2CO0 (704), est liée au graphique: Elle prend 
la valeur 3 en HIRES et 2 en TEXT. 


Les commandes graphiques du Basic 


Pour utiliser à fond toutes les possibilités de la haute résolution, il faut 
savoir que: 


— Les coordonnées de l'écran vont de gauche à droite et de haut en bas, 
donc le point 0,0 se trouve dans le coin supérieur gauche. 


— Si les couleurs de l’écran-texte ont été modifiées par INK et PAPER 
avant d'appeler la haute résolution, celles-ci resteront effectives pour 
les trois lignes de texte. 


— Par contre, si INK et PAPER sont utilisés en HIRES, ils agiront sur 
l'écran graphique et non plus sur la fenêtre-texte. 


— Toutes les commandes applicables au mode texte fonctionnent sur 
cette fenêtre, sauf PLOT qui provoque un message d'erreur. 


— Par la suite, nous utiliserons constamment la notion de ‘curseur 
graphique’ que nous appellerons simplement curseur. Celui-ci déter- 
mine l'endroit de l'écran où se fera le prochain tracé, mais n'est pas 
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forcément visible comme le curseur texte. Quand on passe en mode 
HIRES, le curseur est placé aux coordonnées 0,0 (coin supérieur 
gauche). 


— Les instructions graphiques, en dehors de leurs arguments spécifiques, 
utilisent toutes un paramètre définissant la couleur dans laquelle 
s'effectue le tracé que nous appellerons C, et qui peut prendre les 
valeurs suivantes : 


0 : Dessine avec la couleur du fond (donc efface les points déjà tracés). 
1: Dessine dans la couleur définie pour le premier plan. 


2 : Inverse la couleur des points sur lesquels passe le curseur (Agit 
comme © sur un point déjà tracé et comme 1 s'il n'y a rien). 


3: Ne fait rien (aucun point tracé). 


4.3.1. Instructions 


Commandes d'intérêt général 


HIRES 

Syntaxe: HIRES 

Application: Démarre le mode haute-résolution si on est en mode texte, et 
efface l'écran graphique si on est déjà dans ce mode. Ce dernier n'est pas 
affecté par CLS ou CTRL L, qui agiront sur les trois lignes de texte. 
TEXT ou LORES N 

Syntaxe: TEXT ou LORES N avec N=0, N=1 


Application: Repasse en mode texte. 
Commandes de dessin 


CURSET 
Syntaxe: CURSET <Abscisse>,<Ordonnée>,<C> 


Application: Place le curseur au point spécifié. Cette commande est l'équi- 
valent de PLOT ou PSET dans d'autres Basic. 


109 


Exemple : CURSET 120,100,1 met le curseur au centre de l'écran. 


CURMOV 
Syntaxe : CURMOV<X>,<Y»>,C 


Application: Ajoute X et Ÿ aux coordonnées courantes du curseur, et place 
celui-ci à la position obtenue (déplacement relatif). 


DRAW 
Syntaxe: DRAW <X>,<Y>,C 


Application: Trace une droite entre la position du curseur et le point obtenu 
en y ajoutant X et Ÿ (déplacement relatif). 


REMARQUE : Si la deuxième extrémité de la droite se trouve plus haut ou à 
gauche de la position du curseur, X et ŸY peuvent bien sûr avoir une valeur 
négative. 


CIRCLE 
Syntaxe: CIRCLE <Rayon>,C 


Application: Trace un cercle du rayon spécifié, centré sur la position du 
curseur. 
REMARQUES : 


— Vous devrez veiller à ce que le cercle ne dépasse pas les limites de 
l'écran, ce qui provoquerait une ‘’ILLEGAL QUANTITY ERROR". 


— Si vous utilisez la valeur 2 pour C, tous les points du cercle ne seront 
pas tracés: L'approximation de calcul ayant pour effet d'écrire deux fois 
de suite certains points, ceux-ci sont effacés au deuxième passage. 


Exemple: Dessin d'un cercle plein (boule): 


10 CURSET 120,100,3 
20 FOR N=1 TO 50 
30 CIRCLE N,1 

40 NEXT N 


CHAR 
Syntaxe: CHAR <Code Ascii>,<Jeu>,C 
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Application: Écrit le caractère ayant le code spécifié à la position du 
curseur. Si <Jeu>=0, le caractère est pris dans le jeu standard et si 
<jeu>=1 c'est le jeu semi-graphique qui est utilisé. 


REMARQUES : 

— La position du curseur définit le coin supérieur gauche de la matrice 
du caractère. 

— Après écriture le curseur demeure au même endroit, ses déplacements 
doivent donc être entièrement gérés par l'utilisateur. 


— Le seul moyen d'effacer un caractère est de le réécrire au même 
endroit, en donnant à C la valeur O ou 2. 


Exemple : Le petit programme suivant écrit le message contenu dans M$ 
au centre de l'écran. 


10 HIRES :M$—’’ECRITURE HAUTE RESOLUTION”’ 
20 CURSET (240—LEN(M$)+6)/2,90,3 

30 FOR N=1 TO LEN(M$) 

40 CHAR ASC(MID$(M$,N,1)),0,1 

50 CURMOV 6,0,3 

60 NEXT N 


— La ligne 20 centre la phrase en fonction de sa longueur. 


— La ligne 40 prend le code de chaque caractère extrait de M$, et le 
donne comme argument à CHAR. 


— La ligne 50 fait avancer le curseur de 6 points (largeur d'un caractère) 
après chaque écriture. 


Définition d'une zone 


FILL 
Syntaxe: FILL <hauteur>,<largeur>,<N> 


Application: Remplit une zone dont le coin supérieur gauche est marqué 
par la position du curseur, et dont la forme peut être définie de deux 
manières différentes selon la valeur donnée à N: 


1) SiN est compris entre O et 31, il est considéré comme un attribut exac- 
tement comme pour PLOT (cf.8 3.4) ; les mêmes valeurs sont d'ailleurs 
applicables. L'attribut est alors en vigueur sur un rectangle situé à droite 
de la zone ainsi créée, celle-ci étant le côté gauche du rectangle. 
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2) Si N est compris entre 32 et 127, il est considéré comme un motif 
correspondant à son équivalent binaire sur six Bits. Un des deux Bits 5 
ou 6, respectivement de poids 32 et 64, doit obligatoirement être à 1. 


REMARQUES : 

La hauteur est définie en nombre de points, mais la largeur est définie en 

nombre de cellules de 6 points. Elle pourra donc avoir une valeur comprise 

entre 1 et 40. 

— Après exécution de FILL, le curseur est déplacé au coin inférieur 
gauche de la zone définie indépendamment de sa largeur, comme si on 
avait exécuté CURMOV O,<hauteur»>,C. 

— Lorsque FILL définit un attribut, il est impossible de dessiner dans les 
cellules qui contiennent ce dernier. 


Le tableau suivant montre la correspondance existant entre le tracé appa- 
raissant effectivement à l'écran, et les valeurs dédimale et binaire de N: 


Cellule obtenue par Valeur décimale Équivalent 
FILL 1,1,<N> binaire 





Bits-|7 | 6 
00 100000 
00 101010 
00 111000 
00 111111 
01 000000 
01 000001 


Les bits marqués en gras sont ceux effectivement pris en compte pour 
l'élaboration du motif. Nous constatons que dans tous les cas, soit le Bit 5 
soit le Bit 6 est à 1: Comme il est impossible de donner à N une valeur 
inférieure à 32 qui le définirait comme un attribut, on met à 1 le Bit 6 qui 
n'entre pas dans le dessin de la cellule elle-même: cela revient en fait à 
ajouter 64 à la valeur décimale obtenue par les 6 Bits de cette dernière. 


Rappelons enfin que le poids d’un bit est trouvé en élevant 2 à la puissance 
de son N° d'ordre: Le Bit 7 vaut 27—=128, le Bit 5 vaut 25—32, etc. 
(cf. 8 2.1). 
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Exemples : 


Programme créant une zone de 120 points de large par 100 points de haut 
au centre de l'écran, où l'affichage se fait en jaune clignotant sur bleu: 


10 HIRES 

20 CURSET 60,50,3:FILL 100,1,20 

30 CURSET 66,50,3:FILL 100,1,3 

40 CURSET 180,50,3:FILL 100,1,7 

50 CURSET 186,50,3 :FILL 100,1,16 

60 CURSET 120,100,3:FOR N=1 TO 30 STEP 3 :CIRCLE N,1:NEXT 
70 WAIT 40 :CURSET 54,50,3 :FILL 100,1,12 


— Lignes 20 à 50: Les attributs de couleur sont placés aux colonnes 60 
et 66, puis remis aux valeurs d'origine aux colonnes 174 et 180. 
— Ligne 60, création d'un dessin. 
— Ligne 70, l'attribut clignotant” (12) est mis à la colonne 54. 
Pour dessiner dans la zone précédente un motif ‘3 points 2 blancs un 
point”, remplacer la ligne 60 par: 
60 CURSET 80,66,3:FILL 68,15,57 


Le dessin de valeur décimale 57 (111001) remplit une zone de 68 points 
de haut par 15+6—90 points de large. 


Définition du trait 


PATTERN 
Syntaxe: PATTERN <N> 


Application: Sélectionne le type de trait utilisé par DRAW et CIRCLE, qui 
est fonction de l'équivalent binaire de N sur 8 Bits. N est donc compris 
entre O et 2565. La valeur à la mise sous tension ou à l'appel du mode 
graphique par HIRES est de 255 (trait plein). 


REMARQUE: On trouve l'équivalent décimal du type de trait désiré exacte- 
ment de la même façon que pour FILL, avec la différence qu'il est constitué 
de 8 bits au lieu de 6. 

Notez aussi que N est remis à 255 chaque fois qu'un HIRES (effacement 
d'écran) est exécuté. 
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4.4 


Exemple: Le programme suivant vous permet d'expérimenter tous les 
types de trait possibles sur le dessin d’un rectangle. L'appui sur les flèches 
“haut” ou bas’ augmentera ou diminuera la valeur servant d'argument à 
PATTERN. 


10 HIRES:PATTERN N 

20 ?:2"MOTIF NO'N 

30 CURSET 60,60,3:DRAW 120,0,1 :DRAW 0,80,1 :DRAW-—120,0,1 : 
DRAW 0,-80,1 

40 GET X$ 

50 IF X$=CHR$(10) AND N> 0 THEN N=N—1 

60 IF X$=CHR$(11) AND N< 255 THEN N=N+1 

70 GOTO 10 


4.3.2. Fonction 


POINT 
Syntaxe : 
POINT(<abscisse>,<ordonnée>) 


Application: seule fonction spécifique du graphique, elle retourne 1 si le 
point aux coordonnées fournies est dans la couleur du 1° plan, et O s’il est 
dans la couleur du fond. 


Quelques programmes 


Déplacer le curseur et dessiner dans huit directions 


Ce programme autorise le déplacement du curseur dans les quatre direc- 
tions principales avec les flèches, et dans les 4 diagonales par combinaison 
des flèches et de la touche SHIFT. On peut écrire ou effacer en pressant les 
touches ‘1’ ou 0”, et effacer l'écran avec DEL: 


5 REM PAPIER & CRAYON 
7 REM 
10 HIRES :HIMEM 9000 
20 X=100 :Y=100 :T=0 
30 2:?’’TRAIT-0”’ 
40 CURSET XM,YM,T :CURSET X,Y,1 
50 X$=KEY$:1F X$="’’’ THEN 50 
60 XM=X :YM=Y 
70 IF PEEK(521)=56 THEN 130 
80 IF X$—CHR$(8) AND X>0 AND Y>0 THEN X=X-—1 :Y=Y—1 
90 1F X$—CHR$(10) AND X> 0 AND Y<199 THEN X=X-—1 :Y=Y+1 
100 IF X$—CHR$(11) AND X < 239 AND Y >0 THEN X=X+1:Y=Y—1 
110 IF X$—CHR$(9) AND X< 239 AND Y < 199 THEN X=X+1:Y=Y+1 
120 GOTO 40 
130 IF X$—CHR$(8) AND X >0 THEN X=X-—1 
140 IF X$—-CHR$(10) AND Y < 199 THEN Y=Y+1 
150 IF X$—-CHR$(11) AND Y> 0 THEN Y=Y— . 
160 IF X$—CHRS$(9)AND X < 239 THEN X=X+ 
170 IF X$=”’0”” OR X$=—’’1” THEN TOVALIKS): CLS:2:?""TRAIT=""T 
180 IF X$—CHR$(127) THEN RUN 
190 GOTO 40 


Explications du programme: 


— 20: X et Ÿ sont les coordonnées du curseur, T est le paramètre de 
couleur (1=écrit, O=efface). 


— 40: Cette ligne déplace le curseur, tout en l'effaçant le cas échéant de 
son ancienne position si T=0O. 


— 50: Saisie de la touche pressée. 


— 60: Mise en mémoire dans XM et YM des valeurs de X et Ÿ, avant leur 
modification éventuelle. 


— 70: Teste si la touche SHIFT est appuyée (pour l'explication de cette 
variable-système, voir 8 2.3.3). 


— 80-110: Gestion des déplacements en diagonale; incrémente ou 
décrémente X et Ÿ en fonction de la touche appuyée en même temps 
que SHIFT et en veillant à ne pas dépasser les limites de l'écran. 


— 130-160: Gère les déplacements simples (haut, bas, droite, gauche). 


— 170: Changement du mode curseur (écrit-efface), et l'affiche dans la 
fenêtre-texte. 


180: Touche DEL, effacement écran. 
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Dessiner un rectangle 


10 HIRES :C1=100 :C2=50 :X=60 :Y—60 
20 CURSET X,Y,3 
30 DRAW C1,0,2:DRAW 0,C2,2:DRAW-C1,0,2:DRAW 0,-C2,2 


— 10: Définition de la taille des côtés (C1 et C2) et de la position du coin 
supérieur gauche. 


Dessiner un rectangle plein 


10 HIRES :C1=100 :C2=50 :X=60 : Y—60 
20 CURSET X,Y,3:FOR N=1 TO C2 
30 DRAW C1,0,2:CURMOV-—C1,1,3 
40 NEXT 


Faites tourner ce programme, et ajoutez ces deux lignes: 
15 CURSET 100,100,3 :CIRCLE 50,1 
et 
50 IF X—40 THEN END ELSE X=40 :Y=80 :GOTO 20 


Cela vous donne un aperçu des possibilités du graphique ! 


Dessiner une ellipse 


5 REM  ELLIPSE 

7 REM 

10 INPUT''Rayons horizontal, vertical”’;R1,R2 
20 INPUT'’’Coordonnées du centre (X,Y)'’;X,Y 
30 HIRES 

40 S=PI/(R1+R2)/1.8 

50 FOR 1-0 TO 2xPI STEP S 

60 X1=SIN(I)xR1+X 

70 Y1=COS(I)xR2+Y 

80 CURSET X,Y,1 

90 NEXT I 


— 40: Définit le pas séparant chaque point tracé. Si vous voulez un tracé 
plus fin, augmentez la valeur 1.8 sinon la diminuer. 


— 60,70: Calcul de l'abscisse et de l'ordonnée de chaque point de 
l'ellipse, | étant exprimé en radians. Les deux rayons fournissent un 
coefficient différent pour chaque coordonnée, déterminant l'aspect 
elliptique. 
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Ce petit programme amusant dessine le mot "END" en caractères 
énormes, et en utilisant à fond la commande DRAW: 


10 REM PROGRAMME END 

20 REM 

100 HIRES 

110 CURSET 16,170,3 

115 REM EE” 

120 DRAW 0,-120,1:DRAW  60,0,1:DRAW 0,16,1:DRAW-—44,0,1: 
DRAW  0,36,1:DRAW 30,0,1 

130 DRAW 0,16,1:DRAW-30,0,1:DRAW 0,36,1:DRAW 44,0,1: 
DRAW  0,16,1:DRAW-—60,0,1 

150 REM N° 

160 CURMOV  75,0,3 :DRAW 0,-120,1 :DRAW 16,0,1:DRAW 28,80,1 : 
DRAW  0,-80,1:DRAW 16,0,1 

170 DRAW 0,120,1 :DRAW—16,0,1 :DRAW-28,-80,1 :DRAW 0,80,1: 
DRAW —16,0,1 

190 REM D” 

200 CURMOV 75,0,1 

210 DRAW 0,-120,1:DRAW 45,0,1:DRAW 10,5,1 :DRAW 5,10,1: 
DRAW 0,90,1 :DRAW--5,10,1 

220 DRAW-—10,5,1:DRAW-45,0,1 :CURMOV 16,-16,3:DRAW 0,-88,1: 
DRAW 24,0,1:DRAW 5,2,1 

230 DRAW 2,5,1:DRAW 0,74,1:DRAW2,5,1 :DRAW--5,2,1 :DRAW-24,0,1 


Aucune explication n'est nécessaire, nous remarquerons simplement que 
les arrondis de la lettre D’ sont obtenus par approximation, en traçant 
des petits segments de droite. 


La Hardcopy graphique 


Nous avons déjà proposé un programme effectuant la copie de l'écran 
texte sur imprimante, au paragraphe 3.4.1. Cette fois-ci il s’agit d'obtenir 
une copie du graphique, opération légèrement plus complexe. La méthode 
de mémorisation de l'écran haute-résolution ayant été expliquée au para- 
grahe 4.2, nous ne reviendrons pas dessus. || nous suffira de savoir que la 
plupart des imprimantes utilisent le même procédé pour l'impression point 
par point, à savoir qu'un octet contient toujours un groupe de points. 


Cependant, deux difficultés sont à résoudre: 


— Sur l'écran, les octets sont disposés “horizontalement”, alors que sur 
l'imprimante ils le sont ‘verticalement’, le bit de poids faible étant en 
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bas. La solution est assez simple, il suffira d'imprimer le graphique 
“couché”, c'est-à-dire incliné de 90°. L'écran sera lu de haut en bas 
mais de droite à gauche, en commençant par le coin supérieur droit. 


— Les imprimantes utilisent les 8 bits de l’octet pour le codage, l'ORIC 
seulement 6. À chaque ligne imprimée (en fait, une colonne de l'écran), 
le saut de ligne sur l'imprimante devra correspondre à six points au lieu 
de 8. 


Le programme a été écrit pour une imprimante EPSON 80 série III, voici un 
résumé des différents codes qui lui sont propres et que vous pourrez éven- 
tuellement adapter pour votre propre machine (ESC est le caractère 
ESCAPE ou CHRS$(27): 


ESC;"A";CHRS(N): Définit un espacement ligne de N points. 


ESC;" D’; CHRS(N);CHRS(0) : N est la colonne où commence l'impression. 
Cette commande sert à centrer le dessin, et n'est pas indispensable. 


CHR$(9) : Effectue le centrage à la position définie par la commande précé- 
dente, et peut également être omis. 


ESC:"K'"";CHRSI(N):CHRS(0): ESC" K'' passe en mode d'impression point 
par point. Le nombre N renseigne l'imprimante sur le nombre de points à 
imprimer sur une ligne (ici 200, puisque l'écran est copié de haut en bas). 


CHR$(10): Code de passage à la ligne. 


5 REM HARDCOPY GRAPHIQUE 

7 REM 

10 E$=CHR$(27) :CALL # ED01 

20 LPRINT E$;”’A’’;CHR$(6); 

30 LPRINT E$;’’D’’;CHR$(23) ; CHR$(0) 

40 FOR I=# A000 TO # A027 

50 LPRINT CHR$(9);E$;"’K’’;CHR$(200) ; CHRS$(0) ; 
60 FOR J=7960 TO O0 STEP —40 

70 DA=PEEK(I+J)-64 :1F DA <0 THEN DA=0 
80 PRINT 

90 LPRINT CHRS$(DA); 
100 NEXT } 
110 LPRINT CHR$(10); 

NEXT | 


130 CALL #E804 


Explications : 


— 10: Le caractère Escape est attribué à E$, et on désactive le scanning 
clavier pour éviter les caractères parasites (cf. 8 2.4.1). 
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4.5. 


40 : Démarrage d'une boucle de 40 pas (une par ligne). 
50: Initialisation de l'imprimante avant lecture-impression de la ligne. 


60 : Démarrage d’une boucle de 200 pas, nombre d'octets ” verticaux" 
sur chaque ligne. 


70: Lecture de l'adresse définie par 1+J et chargée dans DA, qui est 
mis à O s'il s'agit d'un attribut (non imprimable). 


80: Le PRINT est indispensable pour le bon fonctionnement du 
programme. 


90-120: Envoi de l'octet lu à l'imprimante, saut de ligne à la fin de la 
boucle interne et suite de la boucle externe. 


130: Le clavier est remis en fonction. 


Dessin assisté par ordinateur (D.A.O.): 
Le programme MULTIGRAF 


Ce programme, utilisant à fond les diverses commandes graphiques de 
l'ORIC, vous permettra de vous servir de l'écran comme d'une tablette de 
dessin. Le tracé de droites et de diverses figures géométriques y est simpli- 


fié, 


ainsi que l'usage des divers attributs disponibles (couleur, etc.). 


Son principe d'utilisation est assez simple : 


Les déplacements élémentaires du curseur, haut bas et droite gauche, 
sont obtenus avec les quatre flèches. 


Les déplacements en diagonale, en pressant la touche SHIFT en même 
temps que l'une des quatre flèches. 


Deux vitesses de déplacement du curseur sont possibles, la vitesse 
lente étant point par point et la rapide par dix points. 


Le curseur peut écrire, effacer ou ne pas modifier les points sur lesquels 
il passe. 


Plusieurs commandes utilisent deux paramètres: Pour une droite par 
exemple, il faut pointer'’ les deux extrémités. En fait, il suffit de placer 
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le curseur à une des extrémités et de presser la lettre correspondant à 
la commande; ensuite, on déplace le curseur à la deuxième extrémité 
et on rappuie sur la lettre-clé ce qui a pour effet d'exécuter la fonction 


demandée. 


Commandes disponibles 


+ 
| 


+ SHIFT 
— + SHIFT 
T + SHIFT 
L + SHIFT 


< 


> 
0,1,2 


<A>ide 
<D>roite 
<R>ectangle 


<C>ercle 


<B>oule 


<Z>one 
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: Curseur à droite 

: Curseur à gauche 

: Curseur vers le haut 
: Curseur vers le bas 


: Curseur à droite vers le bas 

: Curseur à gauche vers le haut 
: Curseur à droite vers le haut 
: Curseur à gauche vers le bas 


: Sélectionne la vitesse de déplacement lente du cur- 


seur. 


: Sélectionne la vitesse rapide. 


: Choix du mode curseur, O=Efface 1=Écrit et 


2=Inverse. 


: Affiche la liste des commandes acceptées par le 


programme. 


: Trace une droite entre les deux points marqués par 


le curseur. 


: Dessine un rectangle dont les angles opposés sont 


les points marqués par le curseur. 


: Dessine un cercle, dont le premier point marqué est 


le centre et le deuxième un point quelconque de la 
périphérie. 


: Trace un cercle plein, avec les mêmes paramètres 


que pour un cercle normal. 


: Le premier appui sur ”Z" marque un angle; le 


deuxième marque l'angle opposé, et le programme 
vous demande quel attribut vous désirez affecter à 
cette zone (couleur, motif etc. voir 8 4.3.1). 


<T>rait : Choix du type de trait utilisé pour les dessins. 
(Voir instruction PATTERN, 8 4.3.1). 


<E>crit : Autorise l'écriture de texte à l'écran. Après chaque 
caractère tapé le curseur avance automatiquement 
de six points, se mettant ainsi à la position correcte 
pour le caractère suivant. Mode annulé par la 


touche "DEL". 

<P>rint : Effectue .une copie de l'écran sur imprimante 
EPSON 80 série II (Hardcopy). 

ESCAPE : Donne accès à quatre utilitaires: 


<E>ffacer l'écran. 

<S>ave Sauvegarde de l'écran sur cassette. 

<L>oad Chargement d'un écran se trouvant sur cassette. 
<Q>uitter le programme. 


De plus, les trois lignes de texte en bas d'écran affichent la commande en 
cours d'exécution, le mode curseur, le type de trait, la vitesse sélectionnée 
et les coordonnées du curseur. 


Ce que nous avons dit sur les nombreuses REM pour les programmes 
précédents reste valable, à savoir que vous pouvez les éliminer mais 
surtout gardez les numéros de ligne multiples de 100 à cause des GOTO et 
GOSUB qui y font référence ainsi que la ligne N° 1. 


1 REM MULTIGRAF  DAO 

2 REM 

4 REM 

& REM GESTION FOINTEURS 
8 REM 


19 IFA(1)=OTHEN DOFE#466, DEEK (#90) : GOTO166 

24 IFDEEK (H9C) < :*DEEK (4466) THENDOKE#9C, DEEE (4466) : GOSUR6546@ 
34 GOSURGZ266: GOTO1AE 

196 CLS: HIMEME8G GG: FOKE775S, 32 


198 REM 

119 REM FROGRAMME 

112 REM 

126 GOSURBOGO : E6=CHRS (27) 
136 HIRES 


14% GOSUR7666 : GOSURÉ20@ 
156 CURSETX,Y,1 
998 REM 
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1206 
1902 
1196 
117& 
1175 
1186 
1185 
1196 
1246 
1216 
1226 
12356 
1246 
1256 
1266 
1276 
1286 
1281 
12682 
1285 
1287 
1296 
1366 
1305 
1316 
1500 
1598 
lé 
1662 
1815 
1626 
1625 
18436 
1646 
1654 
1148 
1847& 
1686 
16896 
1698 
1790 
1762 
171® 
1726 
1756 
1746 
175@ 
176% 
1798 
1846 
1862 
1814 
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REM BOUCLE FRINCIFALE 

REM 

GET X$H:AX=ASC(X#) 

IFAX%7ANDAX< 12THENGOSURZ6G6: GOTO1199 ‘Mouvements curseur 
REM 

IFAX%47ANDAXESITHEN Te=VAL(X$) : GOTO1546" Chgt mode curseur 
REM 

IFX#="T'"THENGOSUR4S66" Fattern 
IFAX=27THEN1666 "Utilitaires 
IFX#="R"THENGOSUR3G6" Rectangle 
IFX$="D"THENGOSURS5266" Droite 
IFX#="Z"THENGOSURS466" Zone-Fill 
IFAX=127ANDZ=-1THENCURSETX, YŸ, 2: X=XM: YeYM: GOSUB6466 * Annulation 
IFX#="E"THENGOSUR4606" Texte 
IFX$="C'"THENGOSURZ666" Cercle 
IFX#="E"THENGOSURS844" Eoule 
IFX$="A"THENGOSUR6OG" Ai de 

REM 

REM 

REM Vitesse deplacements 

REM 

IFX$=", "THENVS#="éLente "sVels FOHE775,35 
IFX#$=", "THENVS= "Rapide": V=16:POFE775, 52 
REM 

IFXH="F"THENGOSURS966" Har dcopy 

GOSUR6266: GOTO1166 

REM 

REM UTILITAIRES 

REM 

CLS 

FRINT'£E;ffacer l'ecran, <Qiruitter le prog." 
FRINT'£Srave ou “Load un ecran," 
PRINT'ou bien n'importe quelle touche.'"s 
GETX$ 
IFX#$="E"THENHIRES : FRINTCHRS& (17) 5 : GOTO15606 
IFX$="O"THEN TEXT:END 

IFX#="S"THEN1706 

IFX$="LUTHENIBEG 

GOTOiISa 

REM 

REM Save ecran 

REM 

CLS: FOKE618,7 

INFUT'NOM DE L'ECRAN "5 NN$ 

FRINT'Lancez le E7 et pressez une touche" 
GETX$ 

CSAVENNS, AHADOO, ERBFSF 

GOSURGSO 6: GOTO1566 


REM 

REM Load ecran 
REM 

CLS: FOKHE618,7 


1826 
1854 
1846 
1854 
1866 
1998 
2486 
2662 
2005 
2964 
2416 
2615 
202€ 
2622 
26724 
2956 
2052 
2934 
244@ 
2642 
2644 
2454 
206@ 
267@ 
2698 
2196 
2162 
2116 
2112 
2114 
2116 
2126 
21227 
2124 
2126 
2135& 
2132 
2134 
2136 
2146 
2142 
2144 
2999 
Fo4@ 
5002 
3616 
302€ 
F5035@ 
364@ 
5650 
T466 
5670 
3199 


INFUT'NOM DE L'ECRAN "35 NN$ 

FRINT'IMPORTANT: Des que l'ecran est charge,"s 
PRINT'tapez GOTO 1 pour relancer le prog."s 
CLOADNN#, AHAGGG, EREFSF 


GOTO1566 

REM 

REM Mouvements curseur 

REM 

REM Haut /Kas/Droite/Gauche 
REM 

CURSETX,Y,T 


IF FEEK (521) <>S6THENZ166 
IFAX< :OTHENZETE 
IFX-V>=@THENX= (X-V) ELSEX=MX 
GOTOZ264664 

IFAX< >9THENZE46 
IFX+VEMXTHENX= (X+V)ELSEX=® 
GOTO2666 

IFAX< + 106THENZ956 
IFY+VEMYTHENY= (Y+V) ELSEY=6 
GOTO246% 
IFY-VS=@THENYE (Y-V) ELSEY=MY 
CURSETX,Y,2 

GOSUR6266: RETURN 

REM 

REM Diagonales 

REM 

IFAX<:8THEN2126 
IFX-VS=@THENX= (X-V) ELSEX=MX 
IFY-V=@THENY= (Y-V) ELSEY=MY 
GOTO26%66 

IFAX< >9THEN21356 
IFX+VEMXTHENX=(X+V)ELSEX=6@ 
IFY+VEMYTHENYE= (Y+V) ELSEY=& 
GOTO2666 

IFAX< >1G@THENZ146@ 
IFX-V:=@6THENX=(X-V) ELSEX=MX 
IFY+VEMYTHENYE (Y+V) ELSEY=6 
GOTO2666 
IFX+VEMXTHENX=(X+V)ELSEX=& 
IFY-V:=OTHENY= (Y-V) ELSEY=MY 
GOTOZ26466 

REM 

REM Rectangle 

REM 

GOSUR 644% 
IFZ=-1THENXMEX: YM=Y: M$="LRectgle’":RETURN 
IFT=2THENCURSETXM, YM, 2: CURSETX, Y,2 
DRAUWXM-X, @, TM: DRAWSG, YM-Y, TM: DRAWX-XM, ©, TM: DRAWG, Y—-YM, TM 
IFT=1THENRETURN 
X=X+SGN(XM-X) : Y=Y+SGN(YM-Y) : CURSETX,Y, 1 
RETURN 

REM 
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&ShG 


JNHHNTH 
He © € 


LA Ed LA LA C4 C4 


34%6 
5462 
5416 
3426 
35456 
35446 
3445 
5456 
3455 
3466 
3509 
3516 
3526 
35356 
35546 
3556 
35566 
3599 
3646 
3602 
5616 
3626 
3646 
3656 
5660 
35676 
5698 
5806 
3807 
3816 
3826 
3846 
3856 
3866 
3876 
388% 
3896 
3998 
4066 
4862 
4616 
4626 
4456 
4646 
4956 
44866 
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REM Droite 
REM 
GOSUR 464466 
IFZ=-1THENXM=EX: YM=Y: M$="LDroite":RETURN 
DRAUWXM-X, YM-Y, TM 
RETURN 
REM 
REM Zones 
REM 
GOSUR&4GE 
IFZ=-1THENXMEX : YM=Y: M$="LZone!": RETURN 
CURSETX, Ÿ, 2: CURSETXM, YM, 2 
RX=INT(ARS((XM-X) /6)): IFXM£XTHENX=XM 
IFRX<1THENRX=1 
RY=AES (YVM-Y) : IFYMEYTHENY=YM 
IFRY=G6THENRY=1 
CURSETX,Y,2Z 
CLS: FOKE616,7 
FRINT'G-7:Coul.Aff 12:Flash 16-25:Coul.Fond'" 
PRINT"352-127:Dessin de la Zone" 
INFUT'"'VOTRE CHOIX "3FI 

IF FI>7ANDFI<120RFI %1Z2ANDFI<160ORFI > 23SANDFI<TS20RFI +127 THENSS50@ 
FILLRY,RX,FI 
RETURN 
REM 
REM Cercle 
REM 
GOSUR&4GE 
IFZ=-1THENXMEX : YM=Y: M$="LCercle":RETURN 
RD=SOR ( (XM-X) “24 (YM-Y) 72) 

X=XM:Y=YM: CURSETX, Y, 1 
CIRCLERD, TM 
RETURN 
REM 
REM Eoule 
REM 
GOSUR& 4 

IFZ=-1THENXMEX: YM=Y:M$="LERoule":RETURN 
RD=SOR ( (XM-—X) 24 (YM-Y) #2) 

X=XM:Y=YMs CURSETX, Y, 1 
FORN=2TORD 
CIRCLEN, TM 
NEXTN 
RETURN 

REM 
REM Ecrire a l'ecran 
REM 
CLS: FRINT:M$="LTexte" 

=: Vebi MX=236: MY=196: V$="Rapide" 
GOSUR&Z HE 

XH=ÉEYS: IFXH=""THENAGAGELSEAX=ASC (X#) 
IFAX=127THENRESTORE: GOSUR7606:FOKE#20@C, 255: RETURN 
IFAX=26THENFRINTCHRS (26) : : GOTO4%46% 


407@ 
4096 
4100 
4116 
4266 
4499 
450 
4562 
4519 
452€ 
4536 
4546 
4550 
45866 
4998 
4999 
5000 
5007 
3016 
502€ 
3036 
504 
516 
5116 
5126 
5136 
5146 
5156 
5166 
5174 
5186 
5196 
5206 
5214 
5997 
5998 
5999 
CT Ta 14) 
600S 
61€ 
6926 
TRE) 
605 
646€ 
6199 
6246 
6262 
8245 
6216 
8226 
6256 
624€ 


IFAX<32THENGOSUR2006 : GOTO4846 
CHARAX,@,T 

AX=9: GOSUR200@ 

GOSUR6296 

GOTO4646 

REM 

REM Choix du trait 

REM 

CLS: POKE618, 7 

FRINT"'CHOIX DU TYFE DE TRAIT-" 
FRINT'VALEURS AUTORISEES: ©-255 
INFUT"Votre choix:"3F 

IFP<OORP >255THEN45 16 
PATTERNPF : RETURN 

REM 

REM 

REM HARDCOFY 

REM 

CLS 

PRINT"'ALLUMEZ L° IMPRIMANTE" 
FRINT'£Rietour au pgm, ou pressez une touche": 
GETX#H:1F X$="R'THEN RETURN ELSE CALL#ED@1 
LPRINT E$"A"CHRS (6) 3 

LPRINT E$"D"CHRS$ (23) CHR$(@) 3 

FOR I1=#A606G TO #A027 

LPRINT CHR$(9)ES$"K"CHRS (2066) CHR$ (@) 3 
FOR J=7966 TO & STEF-46 
DA=FEEK(1+J)-64:1F DA<GTHENDA=& 


PRINT 

LPRINT CHR$#& (DA): 
NEXTJ 

LPRINT CHR$&(16@)3 
NEXTI 
CALL#EG@4 : RETURN 
REM 

REM MESSAGES EN HAS D'ECRAN 
REM 

REM Aide 

CLS 


PFRINT'£Riectangle <Diroite “Cercle <H:oule" 
FRINT'£Zione {Trait <Aïride <Eïcrit <PFrint" 
PRINT'"<DEL%:Anul <ESCr:Utilit 6,1,2:Curseur'"s 
GETX$ 

RETURN 

REM 

REM Statut 

REM 

IF FEEK(526)<416 THEN RETURN 

CLS:FOKE618,6 
FRINT'"MODE : "E$M$ES$"HCURS: "T$(T)" TRAIT:'"F 
PRINT'VITESSE:"Vg"  MES'AX="X"V=NVS 

RETURN 
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6:99 
846 
6492 
6416 
6426 
6454 
6446 
6498 
8546 
6562 
851% 
6526 
85354 
6546 
68999 
7806 
7407 
7616 
7426 
7856 
7646 
7296 
7498 
7506 
7562 
7516 
7520 
7536 
7546 
7997 
7998 
7999 
860%E 
86062 
8u1e 
B1a6 
8116 
R126 
81:06 
8146 
8156 
8166 
8179 
8186 
19 
8206 
8216 
82264 
2756 
8246 
8256 


8266 
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REM 

REM Memorisation cocordonnees 
REM 

Z=NOTZ 
IFZ=-1THENXMEX : YM=Y: TMET 2: T2: CURSETXM, YM, 2: RETURN 
T=TM:M$="BDeplcet" 

RETURN 

REM 

REM Vidage ligne & (SAVE-LOAD) 
REM 

FORN=GTO28 

FOFE#ERSE+N, 64 

NEXT 

RETURN 

REM 

REM INITIALISATIONS 

REM 

READ X,Y,T,F,V,MX,MY,A(1) 

READ M$ 

READTS$ (4),T#(1),T$(2) 

READVS& 

RETURN 

REM 

REM Donnees de depart 

REM 

DATA 166,166,2,255,10,2739,199,1 
DATA &Deplct 

DATA Efface,Ecrit, Inverse 

DATA Rapide 


REM 

REMSerssses FIN DU FROG---------—-— 

REM 

REM #%xINTRODUCTIONx+*X 

REM 

E$g=" "4+CHR$&(27) 

FRINTCHRS (17) CHR$ (4) : DOKE#ERRD®, 2576: DOKE#REFS, 2578 


FRINT'MULTIGRAF Frogramme de D.A.0 "CHR$#(96)" ERVRF" 
FRINTCHRS (4) : FRINT 

FRINT" Ce programme vous permettra d'exploi-"; 
PRINT'ter les possibilites graphiques d'ORIC":; 
PRINT''avec le maximum de confort.":FRINT 
FRINT'DEFLACEMENTS CURSEUR: " 

FRINT"4 fleches: Horizontal/Vertical" 

FRINT"4 fleches+SHIFT:Diagonales":PRINT 
FRINT'VITESSE DEFLCT:":PRINT"'£ Lente, point par point" 
FRINT"'# Rapide, 14 points par 16 points":FRINT 
FRINT'Les autres commandes s’obtiennent par" 
FRINT'leur initiale:<D'roite,<C:ercle,etc." 
FRINT'£Aïide donne la liste des commandes" 
FRINT''acceptees.":FKINT 

FRINT'L'ecran affiche la commande en cours" 
FRINT'd'execution, le mode curseur (ecrit," 


8274 
8286 

546 
8516 
832& 
6466 
83416 
8426 
8456 
8446 
8456 
8466 
847& 
8486 
849% 
8506 
85164 
8526 
855& 
8546 
8556 
856% 
857@ 
8584 
8596 
9006 
Ja16 
9626 


FRINT'efface,inverse) et sa position." 
FRINT'"'Annulation d’une commandes DEL'":PFRINT 
PRINTE$"L <Dietails ou <Frogramme": 

GETX$: IFX$="PUTHENFRINTEHRS (17) : CLS: RETURN 
IFX$< 5: "D'THENSI16 

CLS: FOKE48484, 22 

PRINT: FRINT" EXPLICATIONS DETAILLEES":FRINT 
FRINT" Commandes necessitant 2? parametres: !":PRINT 
FRINT'-Un premier appui sur la lettre-cle" 
FRINT'marque la ere position,materialisee" 
FRINT'"par un point.Ensuite, on deplace le" 
FRINT'ceurseur a la 2eme position,et on tape" 
FRINT'a nouveau la lettre-cle.'":FRINT 

FRINT'EX: Les 2 extremites d'une droite,les" 
FRINT'diagonales d'un rectangle,le centre et": 
FRINT'un point du perimetre pour les cercles": 
FRINT''et les boules. '":FRINT 

FRINT" Commandes n'exigeant qu’un parametre:" 
FRINT'-Celles-ci sont executees immediate-" 
FRINT'ment, l'ecran vous renseigne sur les" 
FRINT'valeurs autorisees.":PRINT 

PRINT'La commande <Férint recopie l'ecran" 

PRINT'sur une imprimante EFSON serie 864.":PFRINT:FRINT 
FRINTES$"LFOUR COMMENCER FRESSER UNE TOUCHE"; 

GETX$: FPRINTCHRS (17) 3 : RETURN 

CLS 

PRINTPEEK (526) 3 

WAIT 16:G0OT09616 


Explications du programme 


— 10-30: Mise en mémoire des pointeurs de fin de programme, pour 


restitution dans le cas du chargement d'un écran. Comme dans ce cas 
on est obligé de relancer manuellement le programme par GOTO 1, la 
ligne 30 permettra de s'y rendre directement en sautant l'introduction. 


100: POKE 775,32 choisit une vitesse d'autorepeat plus rapide que la 
normale, afin d'accélérer les mouvements curseur. 


120: Si vous voulez éviter de taper les lignes 8000-fin, qui ne contien- 
nent que des explications, il faudra aussi supprimer le GOSUB 8000 de 
cette ligne. 


1000-1280 : Boucle saisissant la touche frappée (X$), et effectuant le 
branchement vers les divers sous-programmes concernés. AX est le 
code ASCII de X$ et T sa valeur s'il s'agit d'un nombre; XM et YM 
mémorisent les coordonnées du curseur, avant son déplacement. Z est 
un pointeur valant 1 en temps normal et —1 après pointage des 
premières coordonnées d'une figure, stockées dans XM et YM. 
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1290: Modification de la vitesse de déplacement (variable V, valant 1 
ou 10). 


1600-1860: Utilitaires ; Effacement de l'écran, sauvegarde et relecture 
cassette. NN$ est le nom de l'écran à enregistrer ou relire. 


2000-2070: Gestion des mouvements simples du curseur, avec vérifi- 
cation de sa position: s'il dépasse les limites de l'écran, il repasse de 
l'autre côté de celui-ci. La variable T détermine si le curseur doit être 
effacé ou non de son ancienne position. 


2100-2144: Gestion des mouvements curseur complexes (diago- 
nales). Identique à ci-dessus, avec la différence que chaque fois X et Y 
sont testées et incrémentées ou décrémentées ensemble. 


3000-3070: Sous-programme dessinant un rectangle, dont les angles 
opposés ont les coordonnées XM,YM et X,Y. Le drapeau Z détermine si 
on pointe le premier ou le deuxième lot de coordonnées. TM stocke 
l'ancienne valeur de T. 


3200-3250: Trace une droite entre XM,YM et X,Y. 


3400-3560: Définition d'une zone. Comme la coordonnée horizontale 
de celle-ci est en nombre de cellules et non pas de points, la ligne 
3440 opère la conversion et RX contient la valeur trouvée. Au 
deuxième passage dans le sous-programme, la valeur de l'attribut ou 
motif à y placer est demandée et un petit mémo des principale valeurs 
affiché en bas d'écran. 


3600-3670: Trace un cercle; son rayon (RD) est calculé à la ligne 
3640 à l'aide du célèbre théorème de pythagore (Le carré de l'hypoté- 
nuse, ici le rayon, est égal à la somme des carrés des deux côtés oppo- 
sés XM-X et YM-Y). 


3800-3890: Dessine une boule, en traçant tous les cercles dont le 
rayon est compris entre 1 et le rayon demandé. 


Note: Si un cercle ou une boule déborde de l'écran, une erreur sera provo- 
quée et le programme s'arrêtera. || suffira alors de le relancer par GOTO 1. 
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4000-4200: Gestion de l'écriture de texte. Le mode curseur inverse 
est imposé, car la seule manière d'effacer un caractère est de réécrire 
par-dessus dans ce mode. Il en va de même pour le nombre de points 
sautés en déplacement, qui est de six afin de respecter l'espacement 
entre caractères. A la ligne 4050, l'instruction POKE#20C,255 force 


les majuscules si on quitte le mode afin de permettre la saisie des 
caractères de commande. 


4500-4520: Sélection du trait utilisé pour les tracés (variable P, argu- 
ment d'une instruction PATTERN). 


5000-5210: Copie l'écran sur une imprimante EPSON. Ce programme 
est présenté avec des explications détaillées au paragraphe 4.4. 


6000-6060: Affichage du petit texte d'aide, résumant les commandes 
acceptées. 


6200-6240: Affichage des paramètres en vigueur, dans les trois lignes 
en bas d'écran. M$ est la commande en cours d'exécution, ou alors 
déplacement”. Le tableau T${) est ‘Écrit’, ‘’ Efface”’ ou ”Inverse” en 
fonction de la valeur de T. V$ est la vitesse de déplacement, puis vien- 
nent X et Y. Ce sous-programme est très fréquemment appelé, en fait à 
chaque passage dans la boucle principale. L'accès en est interdit 
uniquement en autorepeat, pour ne pas ralentir le curseur. 


6400-6440: Autre routine appelée par chaque commande, qui charge 
XM et YM au pointage de la première paire de coordonnées et gère le 
drapeau Z. 


6500-6540: Lors du chargement ou de la sauvegarde d'un écran, les 
messages ‘’ Saving...XXX"" ou ‘’Loading...XXX"' s'affichent à la ligne O, 
mais ils apparaissent en tant que motif graphique au lieu de caractères. 
Ensuite, le message disparaît mais les octets qu'il occupait demeurent 
inaccessibles pour dessiner, situation que cette routine a pour tâche de 
corriger. 


7000-7540: Attribue leur valeur initiale à toutes les variables du 
programme. Au départ, le curseur est positionné à X=100,Y=—100 en 
mode inverse et vitesse rapide. MX et MY sont les valeurs maximales 
permises pour X et Ÿ, respectivement 239 et 199. 


8000-Fin: Introduction fournissant toutes les explications nécessaires 
à l'utilisation immédiate de MULTIGRAF mais que vous pouvez très 
bien omettre si les travaux de frappe vous rebutent. Dans ce cas, ne 
manquez pas de corriger également la ligne 120 qui appelle ce sous- 
programme. 


Précisons pour terminer que le programme occupe 6394 octets en 
mémoire tel qu'il est présenté, valeur qui passe à 5583 sans les REM et à 
3900 octets {!) si le texte d'introduction est également supprimé. 
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5 
Le son ORIC 


Muni d'une ‘puce’ spécialisée chargée de la gestion du son, l'ORIC 
présente de ce fait des dispositions nettement au-dessus de la moyenne 
dans ce domaine. Outre un certain nombre de sons pré-programmés tout 
indiqués pour les jeux, des notes ou du bruit blanc peuvent être générés sur 
trois canaux différents à l'aide d'instructions particulières. 


Ces trois canaux peuvent produire du son de fréquence déterminée, ou 
alors des notes de la gamme dont la hauteur et l'enveloppe sont program- 
mables. Le bruit blanc, s'il est utilisé, sera mélangé à une des trois sorties. 


5.1. Principes de fonctionnement 


Pour bien comprendre comment exploiter le son sur l'ORIC, il faut savoir 
qu'en fait les instructions spécialisées MUSIC et SOUND produisent un 
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5.2. 


son conditionné, dans une certaine mesure, par la nature du son les ayant 


précédé: Ainsi, il sera impossible d'obtenir une note pure après un 
EXPLODE (qui ne contient quasiment que du bruit blanc). D'une manière 
générale: 


LU 


Si le bruit blanc est utilisé sur un canal il faudra ensuite l’"’éliminer"’ par 
un son prédéfini qui n'en contient pas, comme par exemple la répétition 
sonore du clavier ou CTRL G. 


Il faudra tenir compte du fait qu'on n'aura pas nécessairement le même 
résultat en exécutant deux fois de suite la même instruction à des 
endroits différents d'un programme, certaines modifications apportées 
au son de départ restant actives après changement des paramètres qui 
les ont créées. 


Les sons continus durent indéfiniment sauf avis contraire. Ils seront 
interrompus, par l'émission d'un autre son quel qu'il soit, ou par 
l'instruction PLAY 0,0,0,0. 


Enfin, vous pourrez jouir à loisir de vos créations sonores en connectant 
l'ORIC à votre chaîne Hi-Fi, par l'intermédiaire de la prise DIN 7 
broches du magnétocassette. Le son est disponible entre la broche 5 
ou la broche 4 et la masse (broche 2), avec un niveau de 40 millivolts 
environ au volume maximum. 


Commandes disponibles 


Les sons pré-programmés 


PING : Son cristallin, identique à la sonnerie clavier (CTRL G ou 
CHRS$(7)). 
ZAP : Sifflement du type ‘canon laser”. 


SHOOT  : Bruit simulant un coup de feu — contient du bruit blanc. 
EXPLODE: Bruit d'explosion — contient du bruit blanc. 


Et bien sûr, le ‘clic’ produit par le clavier, qui ne peut pas être obtenu par 
programme (mais qui se simule avec l'instruction PLAY, voir plus bas). 
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Instructions produisant un son 


SOUND 
Syntaxe : SOUND <canal>,<N>,<volume> 
Application: Génère un son continu avec les paramètres suivants: 


Canal: 1, 2 ou 3 produira un son pur seul sur le canal spécifié; 
4, 5 ou 6 mélangera un bruit avec le son d'un des trois canaux (4 avec le 
canal 1, etc...). 


N': Détermine la hauteur du son, qui peut être trouvée par la formule 
suivante : 


N=62000/ < fréquence > 


Cette équation est valable pour des valeurs de N allant de 1 (62 kHz) à 
4000 environ (15 Hz). 


Volume : Modifiable par pas fixes, de 1 à 15. La valeur O donne la main à 
l'instruction PLAY, définissant l'enveloppe du son (voir ci-après). 


Exemple : SOUND 1,62,9 produira un son continu à 1000 Hz. 


MUSIC 

Syntaxe: MUSIC <Canal>,<Octave>,<Note>,<Volume> 

Application : Génère une note répondant aux paramètres fournis qui sont: 
Canal: Ne peut prendre que les valeurs 1,2 ou 3. 


Octave: Entier compris entre O (octave la plus basse) et 6 (octave la plus 
haute). 


Note: Entier compris entre 1 et 12, correspondant aux notes suivantes: 


1 — DO 7 — FA# 
2 — DO 8 — SOL 
3 — RE 9 — SOL# 
4 — REX 10 — LA 
5 — MI 11 — LA# 
6 — FA 12 — SI 


Volume: Choix du niveau, comme pour SOUND. 
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PLAY 
Syntaxe : PLAY <Son>,<Bruit>,<Enveloppe>,<Durée> 


Application : PLAY ne produit pas de son, mais modifie un son prédéfini ou 
généré par SOUND et MUSIC, lorsque le volume est mis à O dans ces 
instructions. 


Son: Sélection des canaux qui émettront un son pur, de O à 7: 


Valeur Canaux activés 





NN O 01 B © N = O 
œo 


Bruit : Sélectionne les canaux produisant du bruit blanc, avec les mêmes 
codes que pour <Son>. 


Enveloppe: De 1 à 7, choix du ‘’contour” d'une note ou d'un son. 






Numéro Caractéristiques 











Son unique, avec attaque nette et decay lent. 
Son unique, attaque lénte et arrêt net. 
Comme 1, mais répétitif. 

Répétitif, avec attaques et decays lents. 

Une attaque nette, puis son continu. 

Comme 2, répétitif. 

Une attaque lente, puis son continu. 


NN Oo 1 BB © N — 





Durée : Choix de la longueur du son conformé par l'enveloppe, peut avoir 
une valeur entière comprise entre 1 et 37000. Agjit de trois manières 
différentes : 


— S'il s'agit d'une enveloppe spécifiant un son unique (N° 1 et 2), déter- 
mine la durée de celui-ci. 
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5.3. 


— Pour une enveloppe produisant un son répétitif (N° 3, 4 et 6), définit 
l'intervalle entre deux répétitions. Donc si cet intervalle est suffisam- 
ment court, il devient lui-même une fréquence. 


— S'il s'agit d'un son continu (enveloppes 5 et 7), définit simplement la 
longueur de l'attaque. 


N étant la longueur souhaitée en millisecondes, on trouvera <durée> 
avec la formule suivante: 


< Durée > =N(ms)x+2 


Exemples : 


Pour voir comment on peut produire un son avec PLAY sans utiliser au 
préalable MUSIC ou SOUND, taper: 


PLAY 0,7,3,120 
Puis: 

SHOOT :PLAY 0,7,3,120 
On obtient deux bruits distincts (rappelant un hélicoptère) avec la même 
instruction, simplement en ‘’travaillant"’ des sons de départ différents : La 


répétition sonore du clavier pour la première ligne, et SHOOT pour la 
deuxième. 


Simulation du “clic” de clavier par programme: 
PLAY 7,0,1,20 


On remarque que cette instruction reproduit fidèlement le dernier “clic” 
entendu, RETURN" et les flèches ne produisant pas exactement le même 
que le restant du clavier. 


Une application : le programme MONOSYNTH 


Il est extrêmement difficile de véhiculer l'impression de sons ou d'instruc- 
tions qui les gèrent par des mots, nous avons donc conçu le petit program- 
me ci-dessous qui vous donnera la possibilité de vous servir du clavier 
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comme d'un instrument mais surtout celle d'agir sur tous les paramètres 
définissant un son. 


Ces derniers sont affichés à l'écran, avec les noms et les valeurs qu'ils ont 
dans les instructions MUSIC et PLAY. Ainsi, vous pourrez exactement 
savoir qu'est-ce qui fait quoi’”, et éventuellement retenir les combinaisons 
les plus intéressantes pour d'autres applications. 


Présentation de l'écran, de haut en bas 


— Une ligne contient les noms des cinq paramètres principaux: Canal et 
Octave, arguments de MUSIC, puis Bruit, Durée et Enveloppe, argu- 
ments de PLAY. 


— Juste en dessous sont affichées les valeurs de chacun des paramètres. 
L'une d'entre elles clignote, cela veut dire qu'on peut la modifier: Elle 
augmente d'une unité à chaque appui sur ‘’flèche vers le haut”, et 
diminue avec la flèche vers le bas. On passe d’un paramètre à l’autre 
avec les flèches droite et gauche. 


— Deux lignes plus bas, on trouve la liste des touches du clavier produi- 
sant une note: || s'agit de la rangée supérieure, de “1” à =", et 
encore en dessous leur valeur dans la gamme. Chaque fois qu'une note 
est jouée, un petit caractère spécial en forme de note s'affiche en 


dessous. 


— Un petit texte d'aide en bas d'écran termine la présentation. 


Une dernière remarque: Si vous voulez adapter le programme pour 
pouvoir mémoriser des mélodies et les rejouer ensuite, vous voudrez 
également les sauvegarder sur cassette, en utilisant un tableau pour 
stocker les données Dans ce cas, n'oubliez surtout pas de charger en 
mémoire la routine ‘sauvegarde et relecture de variable” donné au 
paragraphe 2.4.2 avant de commencer à taper le programme. 
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REM xx MONOSYNTH *#x# 
REM 


CLS :GOSUB 1000 
REM 
REM PRESENTATION ECRAN 
pes 
A !"'CHR$(4)CHR$(27)] 7) OO @ @ @''CHR$(4) 


2 CANAL OCTAVE BRUIT DUREE ENVELOPE”’ 
POKE 775,25 :POKE 616,18 :? 


REM 

REM AIDE 

REM 

? E$”S <— — > Selection fonction ’’E$’’W" 
? E$”S t& Changement valeur ”’E$”W?”’ 


2:? E$”S < Space > x2 Remise à blanc’’E$’’W7 

REM 

REM IMPRESSION PARAMETRES 

REM 

POKE PD F=1 :NM=1 

FOR N=1 TO 5 

PLOT MIN,3),7,STR$(M(N,0))+”" ‘’:PLOT M(N,3)+6,7,8 

NEXT :PLOT M(4,3)-1 7,8 

PLOT M(F,3)—1,7,12 :POKE 616,9: ? 

21 2 3 4 5:. 16: 7 8 9 0 — =? 
?" DO RE MI FA SOL LA 1 
e DO # RE # FA # SOL # LA # 
REM 

REM BOUCLE PRINCIPALE 


REM SAISIE NOTES 
REM 


GET X$ :AS=ASC(X$) :NO=VAL(X$) 

IF X$—''0"" THEN NO=—10 

IF X$=""—"" THEN NO=11 

IF X$—’’="" THEN NO=12 

IF NO=0 THEN 440 

Ave NMx%3—1,10,32:NM=NO :PLOT NOx3-—1,10,64 
REM JEU NOTES 

REM 


ON M(1,0) GOTO 370,380,380 

MUSIC M(1,0),M(2,0),NO,0 :PLAY 1,M(3,0),M(5,0),M(4,0) :GOTO 300 
MUSIC M(1,0),M(2,0),NO,0 :PLAY 7,M(3,0),M(5,0),M(4,0) :GOTO 300 
REM 

REM SAISIE NOUVEAUX PARAMETRES 

REM 

IF AS=32 THEN ?2CHR$(6) ; :GOTO 300 

IF AS=—9 AND F<5 THEN F1=1 :GOSUB PE 

IF AS=9 AND F >1 THEN F1=-1 :GOSUB 9 

IF AS=11 AND M(F,0) <M(F,2) THEN MF, D M(F,0)+1:1F F=4 THEN 
M(F,0)=M(F,0)+9 


480 IF AS—10 AND M(F,0) >M(F,1) THEN M(F,0)=M(F,0)—1 :IF F= 4 THEN 
M(F,0)=M(F,0)—9 

484 REM 

485 REM IMPRESSION NOUVEAUX PARAM. 

486 REM 

490 PLOT eu 3),7,STR$(M(F,0))+"" ”’ 

500 GOTO 300 

900 PLOT M(F,3)—-1,7,8:F=F+1:PLOT M(F,3)—1,7,12 :RETURN 

999 REM 

1000 REM  INITIALISATIONS 

1002 REM 

1010 FOR N=1 TO 5 

1020 READ M(N,0),MI(N,1),M(N,2),M(N,3) 

1030 NEXT 

1040 DOKE 46592,1031 :DOKE 46594,1031 :DOKE 46596,7172: 
DOKE 46598,6204 

1050 DOKE 46384,2056 :DOKE 46386,2056 :DOKE 46388,5162 : 
DOKE 46390,8 

1070 E$—”" ’’+CHR$(27) :RETURN 

1200 DATA 1,1,3,2,3,0,6,9,0,0,6,16,500,0,32767,23,1,1,7,32 


Explications du programme : 


La grande majorité des variables utilisées par le programme sont 
regroupées dans le tableau à deux dimensions M{X,Y), organisé comme 
suit : 







Y=—Paramètre 

















Valeur Val.Min. Val.Max. 
en cours autorisée autorisée 


Position horiz. 


X=Fonction à l'écran 








CANAL 


OCTAVE 2,3 
BRUIT 3,3 
DURÉE 4,3 


ENVELOPE 


— Ce tableau regroupe donc toutes les valeurs affichées à l'écran, et une 
variable (F) déterminant quelle fonction est en cours de modification 
permet de tout traiter dans une seule boucle. 


— Deux caractères spéciaux sont utilisés, ‘”’ @ ” est transformé en note de 
musique et ”’&’’ en flèche vers le bas. 


— 100-160: Affichage du logo en double hauteur, et de tous les textes 
sur l'écran. 
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5.4. 


— 170-250: Impression des valeurs initiales des divers paramètres. PLOT 
place un code ‘caractères normaux” (8) après chaque valeur, de telle 
sorte que le code “clignotant” (12) servant à repérer la fonction active 
n'agit que sur une d’entre elles à la fois. 


— 300-350: Boucle principale. NO est la valeur de la note jouée, et les 
lignes 310-330 y placent une valeur correcte pour les touches non 
numériques. La ligne 340 détecte l'utilisation des flèches, qui sont 
traitées plus loin. NM mémorise la précédente note jouée, pour effacer 
le caractère ‘’note”’ avant de le replacer. 


— 360-380: La note saisie est jouée par une instruction MUSIC et 
conformée par PLAY, leurs différents paramètres utilisant les valeurs 
sélectionnées à l'écran. 


— 400-480: Gestion des déplacements latéraux (changement de fonc- 
tion) et haut/bas (changement de la valeur d'une fonction). F1 est la 
valeur à ajouter à la valeur en cours du paramètre modifié (1 si on 
l'augmente et —1 si on le diminue). 


— 490-900: Impression de la nouvelle valeur du paramètre modifié à la 
position contenue dans M(F,3). 


— 1000-1030: Initialisations : Les valeurs de départ, position d'impres- 
sion, ainsi que les maxima et minima de chaque paramètre sont char- 
gés à partir de DATA dans le tableau M(). 


— 1040-1050: Création des deux caractères spéciaux utilisés par le 
programme. 


N-Bomber 


Jeu intéractif du type ‘’jeu d'arcades”’, N-Bomber n'a pas de relation 
directe avec le son en particulier. Nous avons toutefois pensé qu'il serait 
agréable de terminer cet ouvrage par un programme à vocation résolument 
ludique. 


Comme pour tous les logiciels de cette catégorie, la définition en est simple 
mais la réalisation relativement complexe. Le lecteur patient pourra extraire 
nombre de ‘’trucs'”’ intéressants en épluchant ce programme qui est, 
précisons-le, écrit entièrement en Basic. 
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Le principe du jeu est le suivant : Vous pilotez un bombardier de nuit dans 
le ciel ennemi, et à vos pieds se déroule un décor composé de caractères 
semi-graphiques aléatoires ; bombarder ces derniers ne rapporte rien, mais 
de temps à autre une fusée ou un réservoir apparaissent, qui vous rappor- 
tent des points si vous les touchez. 


Pour corser la difficulté, la D.C.A. vous canarde sans relâche (et bien 
souvent vous touche !) et vous consommez trente litres de fuel à chaque 
tour d'écran sur les 300 que vous avez au départ. Seule, la destruction des 
réservoirs vous évitera la panne sèche au bout d'un certain temps. 


On a le choix entre deux niveaux de difficulté, et tous les 1000 points vous 
avez droit à un avion supplémentaire (3 au départ), ainsi qu’à huit bombes. 


Comme d'habitude, le programme est constitué de sous-programmes char- 
gés de tâches précises, et qui ne se suivent pas forcément dans l'ordre où 
ils sont appelés. D'une manière générale, les routines servant le plus 
souvent sont au début, et celles utilisées une seule fois à la fin du 
programme. 


Le score, la quantité de munitions, de fuel et d'avions restants sont affichés 
en haut de l'écran, ainsi que le High score qui ne s'effacera d’ailleurs pas 
tant que l'ordinateur n'est pas éteint (ni RUN, ni NEW n'y feront rien). 


L'avion change d'altitude avec les flèches haute et basse, et une bombe est 
larguée en pressant la barre d'espacement. La D.C.A. suit” l'avion dans 
ses déplacements verticaux, et tire aléatoirement dans une fourchette de 
trois cases autour de sa position. Vous pouvez monter au-dessus du 
plafond de la D.C.A., mais il devient très malaisé de toucher les cibles... 


Enfin et pour mémoire, N-Bomber n'occupera que 3,5 Koctets de RAM tel 
quel et moins de 2,5 K si le thème musical du début et les REM sont 
supprimés. 


199 REM  NIGHT  ROMBER 

192 REM 

194 REM 

119 PAPER4: INHG:E1#=CHRS (27):E$=" "4+E1% 
126 FOKE618, 14 

184 GOSURÉA GG 

199 EXPLODE 

198 REM 
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24% 

202 

216 

224 

239 

264 

279 

289 

294 

360 

998 

1400 
1962 
1196 
1195 
1116 
1126 
1125 
1150 
1146 
1150 
1166 
1165 
117@ 
1186 
1185 
1199 
1197 
1198 
1199 
1290 
1216 
1226 
1225 
12350 
1231 
1232 
12335 
1235 
1237 
1246 
1256 
1264 
1270 
1286 
1290 
13506 
1998 
206€ 
2062 


2430 
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REM DESSIN DECOR 
REM 
GOSUR94AGG: GOSURB466: CLS 
PAPER4:INKO:K=2 
D=Gs X=573: Y=7: 022, 2: AM=2: NO=5O: AX=G: Ch=TOG: Al=2s:Bi$=" " 
GOSUE2666 
GOSUB506@ 
FORN=Z3T026 
PLOTILN,M£LLCCCCCLCCILLCELLCECLLLCCLELCLECLCCLLLLTCEL" 
NEXTaPLOTI,6, "me a om es " 
REM 

REM EOUCLE FRINCIFALE 

REM 

XH=ÉEYSs IFX$<2""THENAX=ASC(X#) 

IFCA<OGTHENAX=16 

IFAX :9ANDAX< 1 2THENGOSURZ646& 

IFX$<2" "THEN1130 

IFRib=" !THENELS=RS Es Yi Ys X1=X+1: AS=SCRNCX1, 22) s MU=MU-1 
ONDGOTOS66OG:REM Avion detruit? 

GOSUR4GGQ :REM Dessin decor 

FLOTX,Y,RS 
IFX:2THENX=X-1ELSEX=56: CA=CA-56@: CO=C0+16: GOSURSGE 
D=(X=A1)#(Y=AL) 

FLOTX,Y. VS 

PLOTAM-1, AL, @:PLOTAM, AL, "I" 

ONKGOTO1206, 119% 

PLAY7, 716, N0:K=1 

REM 

REM Explosion bombe 

REM 

1FB1$=" "ORMU=OGTHEN116@ 

Yi=Vi+i 

IFY1<23STHEN12864 

PLOTÉ,22, 7: EXPLODE: WAITS5: PLOTE, 22,6 

PLOTX1,22," "sk=2 

REM 

REM Cible touchee 

REM 

IFAS=57THENCO=CO-56: AS=6: GOTO1254 
IFAS=6GSTHENCO=CO- 106: AS=0 : CA=CA+56: GOTO1250 
IFX1€%A1THENI1276 

FAPER7 : INK@: EXPLODE : WAITS: PAFERG: INK7 : CO=CO0+240: FAFER4: INKG: = 


GOSUR50GEG 

H1$=" ":GOTO1166 

FLOTX1,Y1i-1," " 

FLOTX1,Y1,81$ 

GOTO1146@ 

REM 

REM Deplacements Avion 

REM 
IFAX=11ANDY>7THENFLOTX, Y.R#:Y=Y-1: NO=NO+1:K=2: GOTO2166 


2446 
20534 
2166 
2998 
F00Q 
3506002 
F501@ 
5015 
3020 
ATARI) 
3035 
5056 
5940 
3450 
5660 
5676 
3998 
400€ 
46062 
4016 
4426 
405€ 
451 
4032 
AGSE 
4035 
464Q 
4050 
4998 
5090 
5602 
5616 
5615 
5026 
5022 
5027 
59056 
5998 
CARTE) 
662 
60QË 
6816 
6420 
TER] 
6a4e 

50 
6055 
6060 
647 
6475 
6486 
6996 
6495 


IFAX<>16THEN2166 
IFY<21THENFLOTX, Y,R$:Y=Y+1: NO=NO-1:K=2ELSED=1 
PLOTX,Y,V$: RETURN 


REM 

REM DESTRUCTION AVION 
REM 

FORN=GTOS 


IFCO:DEEK (#46) THENDOKE#466, CO 

PAFERRND (1) #7: INERND (1) #7: EXPFLODE: WAITRND (1) #16 
WAIT2:NEXTN 

IFVA=1THENS&46 

VA=VA- 1: GOSURSGGG : WAIT256: CLS: GOTO22% 

PAFER7 : INK: GOSUBS5866 

POKE616, 7: FRINTCHRS (4) 


PRINTES#"N GAME  OVER":PRINTCHRS (4) 5 
RUN 

REM 

REM DESSIN DECOR 

REM 

FLOT1,22,9 


A$=CHRS (RND (1) #60+237 

PLOTA, 22, A$:PLOTA, a " 

YL=12: IFY>12THENYL=Y 

AL= INT (RND (12 #R1+YL—(R1—1) ) 

AM=A1 

FLOTA-1,4L,7:PLOTA, AL, "#" 

A=A+. 8: A1=INT (A) : IFA1>37THENA=2. 2: A1=2 

RETURN 

REM 

REM  COMPTEUR 

REM 

POKE616, 1: FRINTCHRS (4) 

IFCO/1060 >=MITHENVA=VA+ 1 : MU=MU+8: MI=MI+1 
PRINTE$"JFUEL:"CA"  BOMBES:"MU" SCORE: "CO: PRINTCHRS (4) 
FPOKE616,4:FRINT:FRINT" HI SCORE: "DEEK (#40): PRINT" "3 
FORN=1TOVA:PRINTUS" "3: NEXT 

RETURN 

REM 

REM  MESSAGE DE DEBUT 

REM 

IFDEEK (#400) < >21845THENFORN=1TO1 1 : READZ, QG: NEXT: GOTO6156 
CLS: POKE616, 3: PRINTCHRS (4) 


PRINTE$"E"ES#"J EVRF FRESENTE : ": FOKE616, 11: FRINT 
FRINTES'"N NIGHT BOMEER " 
FOKE616, 26: FRINTCHRS (4) 

PRINTES$"E A GAME OF SKILL !" 

O5 

FORN=1TO11 

READA, H 


MUS1IC2,0, A, 12 
PLAYS, 0, 1, 2000 
WAITE 

FLAYO, 0,0, 
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6196 
&116 
6126 
6156 
EE 
6216 
7998 
8966 
8067 
8416 
8926 
8456 
8198 

296 
82062 
ga214 
8226 
9256 
8246 
8256 

26% 
83:98 
8466 
8462 
845 
8416 
8426 
8454 
8446 
8456 
68466 
8566 
8516 
8526 
8550 


9546 
8556 
8999 
EAU] 
9662 
9196 
9116 
9126 
9156 
9146 
9506 
9516 
9526 
9536 
9546@ 
95560 
956% 
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NEXTN 
IFO=2THEN6 1 20ELSE0=2: RESTORE : GOTO6666 
DOKE#400, 6: GOSURB200 

RETURN 
DATAS,30,5,3 


6,3,15,8,75,5,30 






DATAB, 49,16,70,7,20,5,30,3,30,5,96 
REM 

REM CRASH 

REM 

FOKEG16, 1%: PRINTCHRS (4) 

PRINTE$"G MES "NCRASH! "E$"H"ES$"@"CHRS (4) 
RETURN 

REM 

REM TEXTE DEEUT 

REM 

CLS 

PRINT :FPRINT 


FRINTE#"GVOTRE BOMBARDIER EST EN MISSION DE'":PFRINT 

FRINTES"GNUIT AU DESSUS DU TERRITOIRE ENNEMI": FRINT 
PRINT: FRINTES"G ATTENTION À LA D.C.A!" 

RETURN 

REM 

REM EXPLICATIONS 

REM 

FPOÉE616, 16: FRINT 

FRINTEI#&"V'EIS$"A REGLES DU JEU u 


PRINTSPC (38) 5: PRINT"  * @ # : HAUT/KHAS/TOUT DROIT " 

FRINT"  ESFACE: LARGUE UNE EROMBE "2: FRINTSFPC (38): 
FRINTES"I"ES$"H:"ES$"F156 FOINTS 

FRINTES"IA"ES"H:"ES$"F166 FTS & 36 LITRES DE FUEL" 
PRINT'CURS.:"E$"F20@ FOINTS":PRINTSPC(E6) 3: 

FRINT 

FRINTEÏIS"VCHAQUE FASGSAGE CONSOMME 36 LITRES 
FRINTEI#$"VTOUS LES 1466 PTS: 8 BOMBES & 1 AVION "; 

PRINT: PRINT: FRINT: FRINTES'"L'"'EIS'"FTAFER 1% QU £<2% SELON NIVEAU 


Hs 
3 


XH=KEVS: IFX$="1"ORX#="2"THENR1=4-VAL (X$) : RETURN 
G0TO8549 

REM 

REM  REDEFINITION CARACTERES 

REM 

READAD: IFAD=4THEN97@@ 

FORN=@TO7 

READDA: FOHEAD+N, DA 

NEXT 

GOTO9 146 

DATA 47400,6,8,8,8.8,8,28,54 

DATA 46964,0,0,0,2,28,2,0,0 

DATA 47928,4,37,21,14,63,14,21,237 

DATA 47972,6,14,31,62,31,12,0,0 

DATA 47624,12,20,63,63, 30 

DATA 46B49,0,12,63,56,31,6,4,0 
DATA 46816,3,7,63,30,49,0,0,0@ 






9576 DATA 47064,42,21,42,21,42,21,42,21 
9584 DATA 46592,8,8,8,8,42,28,8,6 

9596 DATA 46360,0,8,16,63,16,B,0,6 

969à DATAG 

9699 REM 

9764 REM  INITIALISATIONS 

9702 REM 

9719 READ X,Y,A.AL, NO, AM, A1, VA, MU, CA, MI 
9726 READVS,R$,F$,RS, 1% 

9799 RETURN 

9846 DATA 37,7,2.2,20,30,2,2,3,50,300, 1 
9816 DATA _\,ge#%s" "ou" 


Explications du programme 
Plusieurs caractères spéciaux sont créés par le jeu: 


"%"", jeu graphique : Fusée 
"A',jeu graphique : Réservoir 


"g",jeu normal : Bombe 

“g" ,jeu graphique : Explosion au sol 

"£", jeu normal : Avant de l'avion 

Ce jeu normal : Arrière de l'avion 

"|", jeu normal : Nuage de fumée (explosion de D.C.A.) 


On remarque que plusieurs caractères sont placés dans le jeu graphique, 
car toute la ligne où défile le décor composé de mosaïques graphiques est 
précédée d'un attribut ‘deuxième jeu”. Ainsi, le ‘’g’’ qui représente une 
bombe dans le jeu normal (tant que la bombe est en l'air) se transformera 
instantanément en explosion une fois arrivé au sol. De plus, l'effet d'explo- 
sion est renforcé par la modification de l’attribut de couleur de la première 
ligne pendant un court instant, qui passe du noir au blanc quand aucune 
cible n'est touchée. En cas de coup réussi, c'est tout l'écran qui change de 
couleur accompagné par une succession de EXPLODE” du plus bel effet. 


Étant donné leur profusion, nous avons jugé utile d'ajouter une liste 
détaillée des variables employées: 


Chaînes 


B$ : Bombe; caractère ‘’g'’. 
B1$ : Contient un espace en temps normal, et B$ lorsque la bombe est en 
chute. 
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V$ : Avion: deux caractères. 
R$ : Contient deux espaces, pour effacer l'avion lorsqu'il se déplace. 
E$ Caractère ESCAPE — CHRS$(27). 


Coordonnées 

A : Abscisse du curseur. 

AM : Mise en mémoire de l'abscisse curseur. 
A1 : Abscisse de la D.C.A. 

AL : Altitude de la D.C.A. (ordonnée). 

X,Y : Abscisse et ordonnée de l'avion. 


X1,Y1 : Abscisse et ordonnée de la bombe. 


Compteurs 

co : Nombre de points (score). 

CA : Compteur carburant. 

MU : Compteur munitions. 

VA : Nombre d'avions restants. 

Drapeaux 

D : Égal à O si tout est normal, à 1 si l'avion est touché. 

MI : Nombre de milliers de points gagnés, détermine l'acquisition 


d'avions supplémentaires. 


Divers 


R1 : Niveau du jeu (1 ou 2). 

NO : Paramètre dans une instruction PLAY, détermine la hauteur du son 
en fonction de l'altitude de l'avion. 

AS : Code du caractère se trouvant au point d'impact de la bombe: si 
celui-ci correspond à une fusée ou un réservoir, les compteurs sont 
incrémentés en conséquence. 

AX : Code ASCII de la touche pressée. 


— 180: Appel d'un sous-programme jouant un petit thème musical, au 
premier démarrage du programme (6000). 


— 210: Appel des sous-programmes d'initialisation et création de carac- 
tères spéciaux (9000), et d'affichage des explications (8000). 


— 220-230: Initialisation de certaines variables. La routine située en 
9000 n'étant appelée qu'à la première exécution du programme, 
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certaines variables doivent être initialisées localement quand on veut 
rejouer. 


280-300: Remplit le bas de l'écran avec une zone grisée (le sol”). 


1000-1190: Boucle principale, gérant les déplacements de l'avion, le 
son qu'il fait et les mouvements de la bombe si elle a été lâchée. 


1200-1230: Génère les son et image correspondant à l'explosion de la 
bombe au sol. 


1235-1300: Détermine si une cible a été touchée, en testant le code 
du caractère situé à l’abscisse de la bombe. Si c'est le cas, génère les 
son et image appropriés et incrémente les compteurs. 


2000-2100: Efface l'avion de son ancienne position, et le redessine à 
la nouvelle. 


3000-3070: Le branchement s'effectue vers cette routine si le drapeau 
de destruction (D) est à 1, résultat de la concordance entre l'altitude de 
la D.C.A. (AL) et l'ordonnée de l'avion (Y). Dans ce cas, l'écran prend 
une succession de couleurs aléatoires accompagnées d'explosions. S'il 
ne reste plus d'avions, le message ‘GAME OVER‘ s'affiche et le 
programme est relancé. 


4000-4050: Dessine des mosaïques graphiques aléatoires au niveau 
du sol, en parsemant de ci, de là quelques cibles tout aussi aléatoires. 


5000-5030 : Réactualise le compteur à chaque tour d'écran de l'avion; 
se charge aussi de l'attribution d'avions supplémentaires tous les 1000 
points. Si vous voulez changer cette valeur, il suffit de modifier la ligne 
5015. 


6000-6210: Joue la musique ‘de générique” à la première exécution 
du programme. Cette partie peut être omise, en veillant à supprimer le 
"GOSUB 6000” de la ligne 180. 


8000-8030: Affiche le message ” CRASH" si l'avion est détruit et qu'il 
en reste encore. 


8400-8550: Affichage des explications (points donnés par chaque 
cible, commandes, etc.) en début de programme. 


9000-9810: Création des caractères spéciaux dont les données, 
contenues dans des DATA, sont précédées de l'adresse de début du 
caractère; initialisation des principales variables. 
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Appendices 


Appendice 1 — Le jeu de caractères ASCII 


Code 
Décimal 
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Code 
Décimal 


Hexa 


Caractère 


© © J Oo O1 B 


XS<C-WD7PTOZZrre-rOnmOOWB»@ VI A... 
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TI TNK<XES<CHW-0D033-x—- - TQ HD QOUTUSOMI— — N < 


Caractère 
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Appendice 2 — Index des adresses mémoire 


Adresse 


Pointeurs 


#9A,#9B (154,155) 
#9C,#9D (156,157) 
#9E,#9F (158,159) 
#A0,#A1 (160,161) 
#A2,#/A3 (162,163) 


#A4,#A5 (164,165) 
#A6,#A7 (166,167) 
#B0,#B1 (176,177) 
#B8,#B9 (184,185) 


L'Écran 
#12,#13 (18,19) 
#268 (616) 
#269 (617) 
#26A (618) 
#26B (619) 


#26C (620) 
#26D,26E (621,622) 


#26F (623) 
#2C0 (704) 


Le clavier 


#208 (520) 
#209 (521) 
#20C (524) 
#20E (526) 
#306,307 (774,775) 
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Fonction 


Début zone programme 

Fin prog./début var. simples 

Fin var.simples/début tableaux 

Fin tableaux/début chaînes 
Adresse la plus basse dans la zone 


Début de la dernière chaîne entrée .. 


Adresse dernière variable entrée 


Adresse début de la ligne du curseur 
Numéro de la ligne du curseur 
Numéro de la colonne du curseur ... 
Modes curseur et clavier 

Couleur du fond, pour tout l'écran 
Couleur affichage, pour tout l'écran 
Adresse début de la première ligne de 
l'écran accessible au curseur 

Numéro de la dernière ligne de l'écran 
accessible au curseur 

Pointeur TEXT/HIRES 


Code de la dernière touche frappée 
Pointeur Normal/CTRL/SHIFT 
Pointeur Majuscules/Minuscules 
Déclenchement de l'autorepeat 
Vitesse de l'autorepeat 





Page(s) 


37,44 
37,39, 44,56 
39,42 
40,42 


47,79 
48,27,79 
48,27,79 
48,70 
50, 80 
50, 80 


50, 77 


50, 78 
51 








Adresse Fonction Page(s) 





Le magnétocassette 


#35-#46 (53-70) 
#5F,#60 (95,96) 
#61,#62 (97,98) 


Nom du fichier à transférer ........ 
Adresse début de zone à transférer 
Adresse fin de la zone à transférer 







#63 (99) Pointeur AUTO/Normal .......... 57 
#64 (100) Pointeur Prog.Basic/Zone mémoire 57 
#67 (103) Pointeur vitesse de transfert ....... 57 



















Les zones-mémoire 


#400-#4FF (1024-1279) Libre ......................... 51,56 


#500 (1280) Début programme .............. 51,38 
#501 (1281) 1°" octet du programme .......... 38, 39 
#503 (1283) Fin zone programme (à vide) ...... 37,40, 41 
#B400 (46080) Début jeu ASCII ................ 57,82, 52 
#B7FF (47103) Fin jeu ASCII .................. 82, 52 
#B800 (47104) Début jeu graphique ............. 82,52 
#BB57 (47959) Fin jeu graphique ............... 82,52 
#BB80 (48000) Début écran texte ............... 52, 57,62 
#BFEO (49120) Fin écran texte ................. 57,62 
#A000 (40960) Début écran haute-résolution ...... 106, 107 
#BF3F (48959) Fin écran haute-résolution ........ 106, 107 
#BF68 (49000) Début lignes texte en HIRES ...... 106, 107 
#BFEO (49120) Fin lignes texte en HIRES ......... 106, 107 


Routines de la ROM (Appelées par CALL) 


#E4A8 (58536) Chargement fichier (CLOAD) ...... 58 
#E57B (58747) Sauvegarde fichier (CSAVE) ....... 58 
#ED01 (59082) Blocage du clavier .............. 53, 58 
#E804 (59396) Déblocage du clavier ............ 53,58 
#F84A (63562) RESET total :..::.4:%4,44444%4 52 


#F882 (63618) RESET partiel .................. 






149 


Appendice 3 — Messages d’erreur 


Si une commande, donnée ou syntaxe inacceptable est validée, ORIC 
répondra par un des messages ci-dessous suivis du mot "ERROR" 


CAN'T CONTINUE 


Réponse à l'instruction CONT, si le programme a été modifié pendant 
l'interruption. 


DISP TYPE MISMATCH 


Affiché si des instructions graphiques sont utilisées en mode texte, ou si 
PLOT est utilisé en HIRES. 


DIVISION BY ZERO 

Refus de diviser un nombre par zéro. 

FORMULA TOO COMPLEX 

trop de IF — THEN imbriqués sur une même ligne. 


ILLEGAL DIRECT 


Tentative d'utiliser en mode direct des commandes ne fonctionnant que 
dans un programme (GET, INPUT etc.). 


ILLEGAL QUANTITY 


Une valeur hors limites a été donnée comme argument à une instruction ou 
fonction (par ex. PRINT PEEK(300). 


NEXT WITHOUT FOR 


Une commande NEXT est rencontrée sans que la boucle ait débuté par 
FOR. 


OUT OF DATA 
Tentative d'utiliser READ alors que les DATA ont déjà été lus en entier. 


OUT OF MEMORY 


Plus de mémoire, ou bien plus de 16 boucles du type FOR-NEXT, REPEAT- 
UNTIL imbriquées. 


OVERFLOW 
Les calculs ont dépassé le nombre 1.7»x10%8. 
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REDIM'D ARRAY 


Réponse à une tentative de redimensionner un tableau déjà déclaré dans 
un DIM. 


RETURN WITHOUT GOSUB 


Un RETURN est rencontré sans être préalablement passé par un GOSUB. 
Peut aussi être provoqué par un POP mal utilisé. 


STRING TOO LONG 
Tentative d'attribuer plus de 255 caractères à une chaîne. 


BAD SUBSCRIPT 


Un élément de tableau est appelé en utilisant un indice hors des limites 
déclarées dans DIM, lorsque le tableau a été dimensionné. 


SYNTAX ERROR 


Une erreur de syntaxe a été rencontrée dans une commande directe ou une 
ligne de programme. 


TYPE MISMATCH 


Discordance entre un type de variable et les données qu'on essaie de lui 
attribuer (par ex. A—"ABCD”"), ou entre une commande et l'argument 
qu'on lui donné (ex. SIN(A$)). 


UNDEF'D STATEMENT 


Un numéro de ligne inexistant a été fourni comme argument à GOTO, 
THEN ou GOSUB. 


UNDEF'D FUNCTION 


Tentative d'utiliser une fonction avec FN, sans l'avoir préalablement définie 
par DEF FN. 


REDO FROM START 


Des données incorrectes ont été fournies à un INPUT. Seule erreur ne 
repassant pas en mode direct, l'INPUT est reexécuté. 


BAD UNTIL 
Un UNTIL est rencontré, sans que la boucle ait commencé par REPEAT. 
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Index alphabétique 


A 

Adressage curseur ....... 79 
Adresses : 

Écran ............... 62 

Mémoire ............ 34 

De retour ............ 45 
APPLICATION .......... 6 
AND: et amas 5,13,18 
ASC EE ns netecs 23,62 
Arguments ............. 5 
Arrondi exact ........... 30 
Attributs d'écran ........ 50,68,71,80 
AUTO: ..6 sérmsenrs me ste 8 
Autorépétition (du clavier) . 46 

B 

Basic rss. nn 5 
Basic Microsoft ......... 6 
Baud :.:.:44 3 emvsece 8 
Bits. sh. ormenenessetne 33,82,112 
BREAK scies osese 64 
Bruit blanc ............. 131,133 
Buffer de ligne .......... 66,67 


Clavier fs suisse se 
CLEAR 5 vec este 
Clignotants (caractères) ... 
CLOAD: 52 a sue 
CES te at ser sas 
Codes de contrôle 
Colonnes réservées ...... 
Concaténation (de chaînes) 
Constantes: 

De chaîne ............ 

Hexadécimales 
Conversion (degrés/radians) 
CONTROL (CTRL) 
Coordonnées (du curseur) 
Coordonnées ........... 
Couleurs :: sucette. 


20,30 
46,48,63,67 

62 

108 
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Ce livre explore toutes les possibilités de l’Oric-1 dans le domaine 
de la programmation avancée. Une étude complète des adresses mé- 
moire et des variables système ouvre la voie à des extensions du Basic, 
telles que la gestion complète de l'écran, la sauvegarde de variables 
sur cassette, la hardcopy etc. 


Son et graphique y sont très largement traités, et font l’objet de 
nombreux programmes dont un jeu d’arcades en temps réel. 


Trois grands logiciels d'applications sont inclus : 


— Un générateur de caractères très performant et simple à utiliser. 


— Un traitement de textes autorisant la saisie et sauvegarde de vos 
documents sur cassette, ainsi que leur impression et l’utilisation des 
jeux de caractères que vous avez dessinés (minuscules accentuées, 
alphabet grec etc.). 


— Un programme de dessin assisté par ordinateur en couleurs, com- 
portant de nombreuses formes géométriques pré-programmées et 
incluant la sauvegarde/relecture des écrans graphiques. 
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